Hi.
Hoffe kann diesmal jemand anderen helfen.
Also Du kannst wie im unteren Code, die Datei mit "CommonDialog control" öffnen.
Dann Übergibst Du das eingelesene "Line Input #f, LineOfText" an eine String-Variable,
hier "alltext".
Jetzt kannst Du das in deine Textfeld, mit
Code:
Form1.Text1.text = alltext
füllen.
Bearbeiten des Textes, und dann mit
Code:
alltext = Form1.Text1.Text
in die Variable zurück schreiben.
Dann diese benutzen um zu Speichern.
---- Hoffe das Du VB 6 hast ----
Sonst:
Hier klicken...
Nimm einem Button zum Öffnen des Dialoges.
Code:
Private Sub Command1_Click()
filein1
End Sub
Code:
Public Sub filein1()
Dim alltext As String
'Dim endungsschleife As Long
' dateien einlesen
' wird im "CommonDialog" auf "Abbrechen" geklickt,
' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
On Error Resume Next
With CommonDialog1
.CancelError = True
' Filter setzen - hier wird festgelegt, mit welchem Format
' eine Datei geöffnet wird.
.Filter = "Text Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
' Dialogfeld Öffnen anzeigen
.ShowOpen
If .FileName <> "" Then
f = FreeFile
Open .FileName For Binary As #f
' binär(alles auf einmal) aus Textdatei einlesen und in Variable allText speichern
Dumper.dumpinname.Caption = Right(.FileName, 24)
Line Input #f, LineOfText
alltext = LineOfText
End If
End With
End Sub
Hoffe es Klappt. Ausserdem brauchst Du dann bestimmt noch Formatierungs Optionen im
Editor.
z.B. : Linksbündig und sowas
Wenn nicht reicht das hier aus...
