Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Z. B. so...
Autor: effeff
Datum: 28.07.05 10:04
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Datei As String = "d:\test\net\texttrennen\gesamt.txt" Dim Zielverzeichnis As String = System.IO.Path.GetDirectoryName(Datei) Dim sr As System.IO.StreamReader = New System.IO.StreamReader(Datei) Dim zeile As String Dim Datensatznummer As String Dim Anrede As String Dim Name As String Dim StraßeNr As String Dim PLZOrt As String Dim Telefon As String Dim Zaehler As Long zeile = sr.ReadLine Do Until zeile Is Nothing If zeile.Substring(0, 5) = "-----" Then Datensatznummer = sr.ReadLine Anrede = sr.ReadLine Name = sr.ReadLine StraßeNr = sr.ReadLine PLZOrt = sr.ReadLine Telefon = sr.ReadLine End If Zaehler = Zaehler + 1 DatenSchreiben(Zielverzeichnis, Datensatznummer, Anrede, Name, StraßeNr, PLZOrt, Telefon) zeile = sr.ReadLine Loop sr.Close() MessageBox.Show("Fertig. Es wurden " & Zaehler & " Datensätze extrahiert!") End Sub Private Sub DatenSchreiben(ByVal Zielverzeichnis As String, ByVal Datensatznummer As String, ByVal Anrede As String, ByVal Name As String, ByVal StraßeNr As String, ByVal PLZOrt As String, ByVal Telefon As String) Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(Zielverzeichnis & "\" & Datensatznummer & ".dat") sw.WriteLine(Datensatznummer) sw.WriteLine(Anrede) sw.WriteLine(Name) sw.WriteLine(StraßeNr) sw.WriteLine(PLZOrt) sw.WriteLine(Telefon) sw.Close() End Sub EALA FREYA FRESENA

Datei einlesen und neue Dateien erstellen	1.039	comDEX	27.07.05 15:29
Re: Datei einlesen und neue Dateien erstellen	742	Vento	27.07.05 15:41
Re: Datei einlesen und neue Dateien erstellen	729	comDEX	27.07.05 15:43
Re: Datei einlesen und neue Dateien erstellen	663	Bingo	27.07.05 16:13
Re: Datei einlesen und neue Dateien erstellen	609	comDEX	27.07.05 16:33
Re: Datei einlesen und neue Dateien erstellen	650	comDEX	27.07.05 17:28
Re: Datei einlesen und neue Dateien erstellen	647	Bingo	27.07.05 22:24
Re: Datei einlesen und neue Dateien erstellen	653	comDEX	27.07.05 22:37
Re: Datei einlesen und neue Dateien erstellen	650	DaveS	27.07.05 22:41
Re: Datei einlesen und neue Dateien erstellen	663	comDEX	27.07.05 23:03
Re: Datei einlesen und neue Dateien erstellen	672	DaveS	27.07.05 23:10
Z. B. so...	746	effeff	28.07.05 10:04

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