Text Auslesen , Bearbeiten , Speichern

D

DooMoOo

Mitglied
Hi @ all ,
Also ich will nen Programm machen was eine Text Datei Öffnet ,und alle zeilen wo ich ";" dafür is löscht und eine neue zeile "; Hallo du" macht

Code: 
Private Sub Form_Load()
Dim Nr As Integer
Dim Text As String

CommonDialog1.Filter = "TEXT Files|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Nr = FreeFile
Open CommonDialog1.FileName For Binary As #Nr
 Text = Space$(LOF(Nr))
 Get #Nr, , Text
Close #Nr
Text1.Text = Text
End Sub
Soweit bin ich scho gekommen , jetz kann ich zum start die txt öffnen und der text wird in text1.text ausgegeben ... aber wie mach ich jetzt damit alle Zeilen die ein ";" davor haben gelöscht werden und eine neue zeile "; Hallo du" dahin kommt ? Und damit das dann in der selben datei gleich gespeichert wird

Danke für Hilfe schonmal im Vorraus :)

Greetz
DooMoOo
 
weiss keiner antwort?
Zum Vergrößern anklicken....
Du solltest eher fragen: "Warum hat keiner Lust zu antworten?"
Code: 
Private Sub DateiBearbeiten(ByVal strPfad As String)()
 
	Dim intDateinummer As Integer
	Dim strZeilen() As String
	Dim intZeilenZähler As Integer
	intDateinummer = FreeFile
 
	Open strPfad For Input As intDateinummer
 
	While Not EOF(intDateinummer)
		intZeilenZähler = intZeilenZähler + 1
		'Zeilen-Array vergrößern:
		If intZeilenZähler = 1 Then
			ReDim strZeilen(1 To 1)
		Else
			ReDim Preserve strZeilen(1 To intZeilenZähler)
		End If
		'Zeile aus Datei einlesen:
		Line Input #intDateinummer, strZeilen(intZeilenZähler)
		'Zeile ersetzen, wenn das erste Zeichen ein Strich-Punkt ist:
		If VBA.Left$(strZeilen(intZeilenZähler), 1) = ";" Then strZeilen(intZeilenZähler) = "; Hallo du"
	Wend
 
	Close intDateinummer
 
	Kill strPfad
	'Veränderte Daten nun in die Datei reinschreiben:
	intDateinummer = FreeFile
	Open strPfad For Output As intDateinummer
 
		For intZeilenZähler = LBound(strZeilen) To UBound(strZeilen)
			Print #intDateinummer, strZeilen(intZeilenZähler)
		Next
 
	Close intDateinummer
 
End Sub
aufruf erfolgt dann beispielsweise so:
Code: 
Private Sub Form_Load()
Dim Nr As Integer
Dim Text As String
 
CommonDialog1.Filter = "TEXT Files|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
DateiBearbeiten CommonDialog1.FileName
End Sub
 
Die Frage verstehe ich jetzt nicht ganz! Es ist doch völlig Wurscht, wo man den Code einfügt! Kannst ihn weiter oben im Code platzieren oder auch weiter unten.....:suspekt:
 
Das ist dann doch durchaus merkwürdig. An welcher Stelle kommt denn der Fehler? Der Code soll natürlich nicht in einem bereits vorhandenen Codeteil eingefügt werden sondern an einer "freien" Stelle. Ich weiß nicht wie ich das besser erklären soll. Hast du ICQ?
 
Na immer mit dem "Dateibearbeiten" wird nie was gefunden muss ich den anderen Code ( den längeren) bei irgendein Objekt rein machen oda so ?
 
Das "DateiBearbeiten" ist eine eigene Funktion und muss selbstständig "alleine" im Code-Eintipp-Fenster stehen und nicht in einem Code eines anderen Objekts.
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück