| |

Visual-Basic EinsteigerRe: 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) |  |
 | 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 |
  |
|
Neu! sevCoolbar 3.0 
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
|
|
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
|
|