|
| |

Visual-Basic Einsteiger| Text einlesen 2 | |  | | Autor: Atlan | | Datum: 12.01.02 00:43 |
| Ich versuch es nochmal da ich immer noch nicht weiter gekommen bin.
'******************************************************************
Also speichern wie folgt:
Private Sub cmdSpeichern_Click()
Open "Adressen.txt" For Append As #1
Print #1, txt0.Text, txt1.Text, txt2.Text, txt3.Text, txt4.Text, txt5.Text, txt6.Text, txt7.Text, txt8.Text, txt9.Text, txt10.Text, txt11.Text, txt12.Text, txt13.Text
Close #1
End Sub
'******************************************************************
Laden in List1:
Private Sub Form_Load()
On Error GoTo Error
Dim Text, Pfad
Pfad = "Adressen.txt"
Open Pfad For Input As #1
While Not EOF(1)
Line Input #1, Text
If InStr(1, Text, "") Then List1.AddItem Text
Wend
Close #1
End Sub
'******************************************************************
Dies sind die Textfelder:
Sub Neu()
Form1.txt0.SetFocus
Form1.txt0.Text = "Nachname:"
Form1.txt1.Text = "Vorname:"
Form1.txt2.Text = "Adresse:"
Form1.txt3.Text = "Plz:"
Form1.txt4.Text = "Land:"
Form1.txt5.Text = "Wohnort:"
Form1.txt6.Text = "Telefon Privat:"
Form1.txt7.Text = "Telefon. Firma:"
Form1.txt8.Text = "Telefon. Handy:"
Form1.txt9.Text = "Faxnummer:"
Form1.txt10.Text = "M@iladresse:"
Form1.txt11.Text = "http://www."
Form1.txt12.Text = "Sonstiges:"
Form1.txt13.Text = "Bemerkungen:"
End Sub
'**************************************************************
Was mir dabei fehlt ist, das die Einträge die zuvor in der
Adressen.txt gespeichert wurden, und sich beim laden dann
auch in dem List1.List Feld befinden, dann sollen alle
gemachten Einträge wenn ich nach dem Namen suche, in dem
txtSuchen.Text in die dafür vorgesehenen Text-Felder
geschrieben werden.
gruß
Atlan |  |
 Text einlesen 2 | 94 | Atlan | 12.01.02 00:43 |   Na, da wollen wir Dich vor einem schweren Designfehler schüt... | 239 | unbekannt | 12.01.02 12:35 |   Teil 1: Done. | 245 | unbekannt | 12.01.02 16:05 |    Re: Teil 2: Done. | 235 | unbekannt | 12.01.02 16:35 |     Re: Teil 3: Done. | 252 | unbekannt | 12.01.02 16:45 |      Re: Teil 4: Done. | 216 | unbekannt | 12.01.02 17:28 |       Das war's mal, aber: | 224 | unbekannt | 12.01.02 17:36 |   Re: Das war's mal, aber: | 38 | Atlan | 12.01.02 21:27 |    Wieso, das ist doch keine Datenbank? Naja, ich fasse es mal ... | 261 | unbekannt | 12.01.02 21:35 |   Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ... | 72 | Atlan | 13.01.02 00:10 |    Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ... | 239 | unbekannt | 13.01.02 00:23 |   Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ... | 68 | Atlan | 13.01.02 01:46 |    Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ... | 214 | unbekannt | 13.01.02 01:48 |     Komplett und funkt  | 345 | unbekannt | 13.01.02 15:03 |      Re: Komplett und funkt  | 48 | Atlan | 13.01.02 16:07 |       Na, löschen wir mal ... | 433 | unbekannt | 13.01.02 18:11 |        Re: Na, löschen wir mal ... | 43 | Atlan | 13.01.02 18:36 |         Re: Na, löschen wir mal ... | 285 | unbekannt | 13.01.02 19:11 |          Re: Na, löschen wir mal ... | 39 | Atlan | 13.01.02 20:09 |           Re: Na, löschen wir mal ... | 241 | unbekannt | 13.01.02 20:15 |            Re: Na, löschen wir mal ... | 59 | Atlan | 13.01.02 21:10 |             Re: Na, löschen wir mal ... | 253 | unbekannt | 14.01.02 00:22 |              Re: Na, löschen wir mal ... | 45 | Atlan | 14.01.02 23:37 |               Re: Na, löschen wir mal ... | 36 | Atlan | 16.01.02 09:56 |                Re: Na, löschen wir mal ... | 44 | Atlan | 16.01.02 19:59 |                 Hi ... Hi .... | 439 | unbekannt | 16.01.02 20:06 |                  Re: Hi ... Hi .... | 46 | Atlan | 16.01.02 21:50 |                   So isses ... fast ... Good work! (oT) | 240 | unbekannt | 16.01.02 21:55 |                    Naja, wenn einige bei Snake so mitgedacht hätten ... uiii | 361 | unbekannt | 16.01.02 22:11 |                     Re: Naja, wenn einige bei Snake so mitgedacht hätten ... uii... | 44 | Atlan | 17.01.02 10:56 |                      Hi Lordchen | 37 | Atlan | 20.01.02 11:29 |
 | 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 |
  |
|
sevWizard für VB5/6 
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats 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
|
|