title image


Smiley Für Gummibärchen tu ich (fast) alles!
Hi,



etwa so:





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

Const lngForReading As Long = 1

Const cstrBreak As String = ":20:STARTUMSE"

Dim fso As Object

Dim fsoFile As Object

Dim strLine As String

Dim strTmp As String

Set fso = CreateObject("Scripting.FileSystemObject")

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

strTmp = ""

Do While Not fsoFile.AtEndOfStream

strLine = fsoFile.ReadLine

If strTmp "" And InStr(strLine, cstrBreak) > 0 Then

WriteToTextFile strTmp, strNewFile, ForAppending, True

strTmp = strLine

Else

strTmp = strTmp & strLine

End If

Loop

fsoFile.Close

Set fsoFile = Nothing

Set fso = Nothing

End Sub

'

' Aufruf:

'

Sub Test()

Call MT940("C:\Temp\MT940.txt", "C:\Temp\NewMT940.txt")

End Sub





Die Function WriteToTextFile habe ich gestern hier gepostet - die findest Du über die Forensuche.



Greetz,

Eric



P.S.: Wenn Du Erdinger WeißbierTM angeboten hättest, hätte ich mir noch mehr Mühe gegeben! *ggg*



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: