Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
06.04.2004, 12:39 Uhr
~MasterOfUniverse
Gast

hi ihr alle
hab in der schule aufgabe bekomme...
ich haben textfeld (txtFile) und en button namens command1...
Ich möchte ein textfile laden können und den text in dem textfeld anzeigen lassen... mein code sieht so aus:

Visual Basic:

Private Sub Command1_Click()
On Error GoTo Fehler

        CDLG.CancelError = True
        CDLG.DialogTitle = "Textdatei laden..."
        CDLG.Filter = "Textdatei (*.txt)|*.txt|alle Dateien (*.*)|*.*"
        CDLG.Flags = cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNPathMustExist
        CDLG.ShowOpen
        OpenFile CDLG.FileName, Form1.txtFile.Text

Exit Sub
Fehler:
    Select Case Err.Number
        Case cdlCancel
        Case Else
            With Err
                MsgBox "Fehler: " & .Number & vbCrLf & _
                              "Source: " & .Source & vbCrLf & vbCrLf & _
                              .Description
            End With
    End Select
End Sub
Public Sub OpenFile(FileName As String, ByRef Text As String)
    Dim fno As Integer
    Dim tmp As String
    Text = ""
    fno = FreeFile
    Open FileName For Input As #fno
    Do Until EOF(fno)
       Line Input #fno, tmp
       txtFile.Text = Text
    Loop
    Close #fno
End Sub

Aber irgendwie läd der keinen text...

Hilfe büddä!
danke

Profil || Private Message || Suche

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

001
06.04.2004, 13:15 Uhr
Pablo
Supertux
(Operator)

Visual Basic:

    Open FileName For Input As #fno
    Do Until EOF(fno)
       Line Input #fno, tmp
       txtFile.Text = Text
    Loop
    Close #fno

Schau richtig nach! Erstens txtFile solltest du dort nicht verwenden, wenn du in OpenFile schon Text byRef bekommst. Zweitens du liest die Datei #fno und speicherst den Inhalt der Zeile in tmp, benutzt du tmp aber nie.

Mein Vorschlag:

Visual Basic:

    Open FileName For Input As #fno
    Do Until EOF(fno)
       Line Input #fno, tmp
       Text = Text & vbCrlf & tmp ' & vbCrlf benutzen, weil sonst es keinen Zeilenabbruch gibt.
    Loop
    Close #fno

--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!

Profil || Private Message || Suche

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

002
09.04.2004, 10:06 Uhr
FlAsH
keine Ahnung

öhm kann man da nicht ShowDialog nehmen bei den kompnenten nehmen??
[bin niocht sicher ob es ShowDialog heisst!!]
irgendwie gieng es mit dem ganz eifach!
aber ich kann visual basic nicht mehr installieren darum kann ich nicht mehr helfen

Profil || Private Message || Suche

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

003
09.04.2004, 10:36 Uhr
Pablo
Supertux
(Operator)

Du meinst CommonDialog?

Ja, aber commondialog ist dann nur hilfreich, wenn du den Dateiennamen zum Speichern oder zum Öffnen erfahren willst. Die Lese/Schreibe Funktionen musst du trotzdem selber machen.
--
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: