Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
20.04.2004, 16:52 Uhr
~Dermit
Gast

Visual Basic:

Public Sub DATEIOEFFNEN()
Dim sLine As String
On Error GoTo Error_Catch
Dialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNPathMustExist
Dialog1.Filter = "Textdatei (*.txt)|*.txt|" & _
      "alle Dateien (*.*)|*.*"
Dialog1.ShowOpen
Open Dialog1.FileName For Input As #1
EOF (1)
  Input #1, sLine
  txtText.Text = sLine

Close #1
Error_Catch:
If Err.Number < "0" Then MsgBox "Error!"
End Sub

...
Das ist ein script das eigentlich in txtText den Text einer datei anzegen soll...
Aber irgendwie zeigter nur die erste zeile an!
Obwohl txtText Multiline = True ist...

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
20.04.2004, 17:39 Uhr
Pablo
Supertux
(Operator)

Visual Basic:

Input #1, sLine

Diese Anweisung liest nur eine einzige Zeile. Für die nächstes Zeilen musst du das erneut aufrufen.

Benutze die Such Funktion!!!!! Da hättest du folgendes gefunden:
www.fun-soft.de/showtopic.php?threadid=6677
www.fun-soft.de/showtopic.php?threadid=6253
www.fun-soft.de/showtopic.php?threadid=4840
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: