Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Text-Dateibearbeitung
Autor: Vampire666
Datum: 20.08.02 13:20
So habe jetzt das was du wolltest mit Textdatei usw.... Hoffe es hilft Dir ansonsten grad fragen ;) cya Gruß Vampire ___________________________________________________________________ Dim strText As String Dim strSuchbegriff As String Dim strEndeBegriff As String Dim strAusgabe As String Dim lngSuchstelle As Long Dim lngSuchende As Long Dim lngZeichenAnzahl As Long Dim lngFileNum As Long Dim strPfad As String Dim strPfad2 As String strSuchbegriff = "Textdatei" 'Festlegen des Suchbegriffs strEndeBegriff = "---" 'Ende der Suche strPfad = "C: est.txt" 'Datei aus der gelesen wird strPfad2 = "C: est2.txt" 'Datei in die der neue Text geschrieben wird Open strPfad For Input As #1 'Öffnen der Datei zum lesen strText = Input$(LOF(1), #1) 'Lesen aller Daten in den String lngSuchstelle = InStr(1, strText, strSuchbegriff) lngSuchende = InStr(lngSuchstelle, strText, strEndeBegriff) lngZeichenAnzahl = lngSuchende - lngSuchstelle strAusgabe = Mid(strText, lngSuchstelle, lngZeichenAnzahl) Open strPfad2 For Output As #2 'Öffnen der Datei zum schreiben Print #2, strAusgabe 'Ausgabe aller daten in die Textdatei Close #2 Close #1

Text-Dateibearbeitung	108	reemmeel	19.08.02 15:38
Re: Text-Dateibearbeitung	418	Vampire666	20.08.02 11:50
Re: Text-Dateibearbeitung	389	Vampire666	20.08.02 13:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen