hi ich spiele grade ein wenig mit visual basic (vb6) rum und bin nun vor folgendes problem gestellt:
ich habe auf meiner oberfläche ein textfeld, in dem später eine ausgabe erscheinen soll.
darunter ein command-button zum aktivieren der prozedur.
zusätzlich zwei textdateien.
ich wollte gerne aus jeder textdatei eine beliebige zeile auslesen und das ergebnis zusammengefügt im textfeld darstellen lassen.
(also quasi ein namensgenerator).
hier der code, den ich mir schon zusammengebastelt habe:
Private Sub Command1_Click()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f, d
Dim readdata As String
Set fso = CreateObject(„Scripting.FileSystemObject“)
Set f = fso.opentextfile(„fnames.ngn“, ForReading, True)
Set d = fso.opentextfile(„lnames.ngn“, ForReading, True)
Text1 = f.readline + d.readline
f.Close
End Sub
Text1 = f.readline + d.readline funktioniert zwar, bringt aber jeweils nur die erste zeile auf die textausgabe.
kann mir dabei wer helfen ?
thx schonmal im voraus