| |

Allgemeine Diskussionenco Dieter: Inhalt von Textboxen speichern | |  | Autor: vb6de | Datum: 16.10.02 15:58 |
| Hallo Dieter!
Der Tip bezüglich des Speichern von Textboxinhalten funktioniert prima!!
Jetzt habe ich aber noch einmal zwei Fragen:
1. Wie muss ich den Quellcode umwandeln, wenn ich zwischen den Textboxen
eine mehrzeilige Textbox habe?
und
2. Wie kann man den folgenden Quellcode zum Speichern etwas verkürzen?
Über Ihren Tip bzw. Ihre Hilfe würde ich mich sehr freuen!
Mfg
Jens
' Lesen des Datei-Inhalts
Dim F As Integer
Dim Zeile1 As String
Dim Zeile2 As String
Dim Zeile3 As String
Dim Zeile4 As String
Dim Zeile5 As String
Dim Zeile6 As String
Dim Zeile7 As String
Dim Zeile8 As String
Dim Zeile9 As String
Dim Zeile10 As String
Dim Zeile11 As String
Dim Zeile12 As String
Dim Zeile13 As String
Dim Zeile14 As String
Dim strFile As String
strFile = App.Path
If Right$(strFile, 1) <> "\" Then strFile = strFile & "\"
strFile = strFile & "Austausch.txt"
F = FreeFile
Open strFile For Input As #F
Line Input #F, Zeile1
Line Input #F, Zeile2
Line Input #F, Zeile3
Line Input #F, Zeile4
Line Input #F, Zeile5
Line Input #F, Zeile6
Line Input #F, Zeile7
Line Input #F, Zeile8
Line Input #F, Zeile9
Line Input #F, Zeile10
Line Input #F, Zeile11
Line Input #F, Zeile12
Line Input #F, Zeile13
Line Input #F, Zeile14
Close #F
' Einer Textbox zuordnen
txtVorname.Text = Zeile1
txtName.Text = Zeile2
txtStraße.Text = Zeile3
txtPLZ.Text = Zeile4
txtOrt.Text = Zeile5
txtTelefonPrivat.Text = Zeile6
txtTelefonMobil.Text = Zeile7
txteMail.Text = Zeile8
txtInternet.Text = Zeile9
txtGeburtstag.Text = Zeile10
txtBemerkungen.Text = Zeile11
txtKundennummer.Text = Zeile12
txtKategorie.Text = Zeile13
txtSonstiges.Text = Zeile14 |  |
 | 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 |
  |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|