'Klaus Seeling, Voith, 2000-09-04, v1.0, , +49 7321 37 3042
Option Explicit
On Error Resume Next
Dim ScriptingFileSystemObject , InputFile , OutputFile

Set ScriptingFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set InputFile = ScriptingFileSystemObject.OpenTextFile("c:\source.txt", 1, False)
If Err.Number <> 0 Then
        MsgBox "Input file doesn't exist!"
Else
        Set OutputFile = ScriptingFileSystemObject.CreateTextFile("c:\result.txt", True)
        Items = Split(InputFile.ReadLine, ";")
        For i = LBound(Items) To UBound(Items)
                OutputFile.WriteLine Items(i)
        Next
        InputFile.Close
        OutputFile.Close
End If 

This page was last updated on May 01, 2006 04:28 PM.