vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Musik einspielen aufruf im form_load??? + Dateien öffnen,lesen,ändern etc. 
Autor: Herbert aschbacher
Datum: 02.08.06 19:42

Hallo,

also ich habe Dateien laden speichern.. etc.
mal weider überarbeitet.. und das kam dabei nun heraus..

Mein PROBLEM aber ist, in den jeweiligen dateien werde nur Anführungszeichen gespeichert lol.. dumm aber ist so.. wo liegt der fehler? bitte um ausbesserung des codings... danke schon mal..

mfg

aschbacher

 
Dim eingabe As String
Dim vorname As String
Dim nachname As String
Dim plz As String
Dim ort As String
Dim strasse As String
Dim leer As String
Dim Arec As String
Dim avorname As String
Dim anachname As String
Dim aort As String
Dim aplz As String
Dim astrasse As String



txtbenutzername.Text = benutzername
txtpasswort.Text = passwort


leer = Space$(15)

benutzername =benutzername + leer
benutzername = Left(benutzername, 15)

passwort = passwort + leer
passwort = Left(passwort, 15)


Record$ = benutzername + passwort

Open "c:\adress.dat" For Append As #1
Write #1, Record$
End Sub


'##############################################################


Private Sub cmd_anzeigen_Click()
Open "C:\adress.dat" For Input As #1


While Not EOF(1)
Line Input #1, Arec

avorname = Left$(Arec, 15)

anachname = Mid$(Arec, 16, 15)

astrasse = Mid$(Arec, 31, 15)

aplz = Mid$(Arec, 46, 5)

aort = Mid$(Arec, 51, 15)

txtVorname.Text = avorname
txtnachname.Text = anachname
txtStrasse.Text = astrasse
txtplz.Text = aplz
txtplz.Text = aort
Wend

Close #1
End Sub
'#############################################################

(anderes programm also anmeldeformular.. es soll nur gespeichert
werden wer sich angemeldet hat.. das es nachvollziehbar ist
wer on war..)

Private Sub Form_Load()
x = FreeFile()

' Open "C:\passwort.dat" For Output As #1

Dim eingabe As String


txtbenutzername.Text = benutzername
txtpasswort.Text = passwort


leer = Space$(15)

benutzername = benutzername + leer
benutzername = Left(benutzername, 15)

passwort = passwort + leer
passwort = Left(passwort, 15)


Record$ = benutzername + passwort
Open "c:\passwort.dat" For Append As #1
Write #1, Record$

End Sub
 

so einfach wie n?tig, so kompliziert wie notwendig (einstein)

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Musik einspielen aufruf im form_load??? + Dateien öffnen,les...1.271Herbert aschbac...01.08.06 20:03
Re: Musik einspielen aufruf im form_load??? + Dateien öffnen...859vbtricks02.08.06 08:03
Re: Musik einspielen aufruf im form_load??? + Dateien öffnen...761Herbert aschbac...02.08.06 17:47
Re: Musik einspielen aufruf im form_load??? + Dateien öffnen...838Herbert aschbac...02.08.06 19:42

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel