Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textdatei automatisch überarbeiten
Autor: Toni123
Datum: 03.04.10 17:49
Vielen Dank für Eure Bemühungen. @Manfred X: Wird dein Code über VBA eingebunden oder VB.net? Entschuldigt bitte mein laienhaftes vorgehen, aber ich komme leider überhaupt nicht aus der Programmierwelt. Ich habe hier noch einen Ansatz aus einem anderen Forum. Wäre dies aus Eurer Sicht auch ein möglicher Lösungsansatz. Leider läuft der bei mir nicht korrekt, d.h. ich bekomme immer folgende Fehlermeldung: "Fehler 1: Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird." Hier noch der Code: ' Version: 01 - 02.04.2010 Option Explicit On Option Strict Off Imports System.IO ' Wegen StreamReader, StreamWriter, File Public Class Form1 Dim Ordnerpfad As String = "C:\$PP\$Test\" Dim Dummy As String = "999999999" Private Sub btn_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Start.Click For Each DateiPfad As String In Directory.GetFiles(Ordnerpfad, "*.500") ' Alle *.500-Dateien Dim Eingabe As New StreamReader(DateiPfad, System.Text.Encoding.Default) Dim Ausgabe As New StreamWriter(DateiPfad & ".Temp", False, System.Text.Encoding.Default) Dim Zeile As String Dim Pos As Integer Try Do Until Eingabe.EndOfStream ' Schleife bis Dateiende Zeile = Eingabe.ReadLine ' Zeile lesen Pos = Zeile.LastIndexOf(";") ' Wo ist letztes ; ?? If Pos > 0 And Zeile.Chars(Pos - 1) = ";" Then ' Ist das Zeichen unmittelbar davor auch ein ; ?? Zeile = Zeile.Insert(Pos, Dummy) ' Ja, dann Dummy-Kontonummer einfügen End If Ausgabe.WriteLine(Zeile) ' Zeile schreiben Loop Catch ex As Exception ' Falls Fehler MessageBox.Show(ex.Message) End Try Eingabe.Close() ' Eingabe schließen Ausgabe.Close() ' Ausgabe schließen File.Delete(DateiPfad) ' Alte Datei löschen File.Move(DateiPfad & ".Temp", DateiPfad) ' Umbenennen durch Move Next End Sub End Class Beitrag wurde zuletzt am 03.04.10 um 17:49:47 editiert.

Textdatei automatisch überarbeiten	2.176	Toni123	02.04.10 10:52
Re: Textdatei automatisch überarbeiten	1.564	VB.NET2005	02.04.10 11:01
Re: Textdatei automatisch überarbeiten	1.462	Toni123	02.04.10 11:07
Re: Textdatei automatisch überarbeiten	1.533	T.S.Tran	02.04.10 11:25
Re: Textdatei automatisch überarbeiten	1.565	Toni123	02.04.10 11:42
Re: Textdatei automatisch überarbeiten	1.478	DaveS	02.04.10 12:05
Re: Textdatei automatisch überarbeiten	1.496	Toni123	02.04.10 13:19
Re: Textdatei automatisch überarbeiten	1.488	VB.NET2005	02.04.10 18:40
Re: Textdatei automatisch überarbeiten	1.491	Manfred X	02.04.10 21:43
Re: Textdatei automatisch überarbeiten	1.527	DaveS	02.04.10 11:05
Re: Textdatei automatisch überarbeiten	1.496	Toni123	03.04.10 17:49
Re: Textdatei automatisch überarbeiten	1.535	Manfred X	03.04.10 17:59
Re: Textdatei automatisch überarbeiten	1.643	Toni123	03.04.10 19:32
Re: Textdatei automatisch überarbeiten	1.475	Manfred X	03.04.10 20:09
Re: Textdatei automatisch überarbeiten	1.628	Toni123	04.04.10 11:26

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