title image


Smiley Re: Ist zwar ziemlich genial, aber...
In dem Fall vielleicht noch mal ein Alternativvorschlag:





Public Sub MT940(strReadFile As String, strNewFile As String)

Const lngForReading As Long = 1

Const cstrRead1 As String = ":61:"

Const cstrRead2 As String = ":86:"

Dim fso As Object

Dim fsoFile As Object

Dim strLine As String

Dim strTmp As String

Dim bolRead As Boolean

Set fso = CreateObject("Scripting.FileSystemObject")

Set fsoFile = fso.OpenTextFile(strReadFile, lngForReading, False)

strTmp = ""

bolRead = False

Do While Not fsoFile.AtEndOfStream



strLine = fsoFile.ReadLine

' Einlesen zunächst grundsätzlich unterbinden, wenn Zeile mit Doppelpunkt beginnt:

If Left(strLine, 1) = ":" Then bolRead = False



' Ausnahme: Zeile beginnt mit einem der beiden Konstantenwerte.

' Schalter auf True setzen; ab jetzt wird alles eingelesen, bis die

' nächste Zeile kommt, die mit einem Doppelpunkt beginnt (dann wird

' erneut geprüft)

If Left(strLine, 4) = cstrRead1 Or _

Left(strLine, 4) = cstrRead2 Then

bolRead = True

End If



' Zeile in Temp-Variable einlesen, wenn Schalter = True

If bolRead Then

strTmp = strTmp & strLine

Else

' Ist der Schalter = False und die Temp-Variable gefüllt:

' Inhalt wegschreiben und Temp-Variable zurücksetzen

If strTmp "" Then

WriteToTextFile strTmp, strNewFile, ForAppending, True

strTmp = ""

End If

End If

Loop

fsoFile.Close

Set fsoFile = Nothing

Set fso = Nothing

End Sub







Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: