If yes – then this can be done quickly by using a Visual Basic Script and “Scripting.FileSystemObject”.

Lets take a closer look.

First you have to define your source file and destination file.

FileCount = 0
DestFileName = “C:\destination”&FileCount&”.txt”

Set objFileSystemObject = CreateObject(“Scripting.FileSystemObject”)
Set objSource = objFileSystemObject.OpenTextFile(“C:\sourcefile.txt”, ForReading)
Set objDestination = objFileSystemObject.CreateTextFile(DestFileName, True)

Next you have to run through the Source File and write it to destinations files.

‘File Separator Mark
NewFileContent = “–start”

‘Run through the file
Do Until objSource.AtEndOfStream
……‘Read a line
……strLine = objSource.ReadLine

……‘Check if a new file should be created
……If InStr(1, strLine, NewFileContent) > 0 Then
………..‘Close Previous File
………..objDestination.Close
………..Set objDestination = Nothing

………..‘Create New FileName
………..FileCount = FileCount + 1
………..DestFileName = “C:\destination”&FileCount&”.txt”

………..‘Create and Open New File
………..Set objDestination = objFileSystemObject.CreateTextFile(DestFileName, True)
……End If

……‘Write to the file
……objDestination.WriteLine (strLine)
Loop

And the finally end by closing the open files

objSource.Close
objDestination.Close

Set objSource = Nothing
Set objDestination = Nothing
Set objFileSystemObject = Nothing

In the above example a file looking like this

–start
my first file
–start
my second file
–start
my third file

would be split in to the files:

destination1.txt containing:
–start
my first file

destination2.txt containing:
–start
my second file

destination3.txt containing:
–start
my third file

This is an example on starting the Notepad and afterwards, as the first thing to do writing the word Hallo:

set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”

WScript.Sleep 100

WshShell.AppActivate “Notesblok”
WshShell.SendKeys “Hallo”

Set WshShell = nothing

Lets take a closer look on what the script actual do. The first step is to initiate the object:

set WshShell = WScript.CreateObject(“WScript.Shell”)

when the object is initiate, the Notepad application is being startet:

WshShell.Run “notepad”

To be sure that notepad is up and running, there has to be a kind of wait state before continuing. This is done be telling the script to Sleep x milliseconds:

WScript.Sleep 100

Now the Notepad application has to be activated:

WshShell.AppActivate “Notesblok”

Once Notepad has been activated, it is ready to receive keys. Which now can be send with the sendkeys command:

WshShell.SendKeys “Hallo”

Finally you have to clean up after you – which means, to stop / close the WshShell you have to set it to nothing.

Set WshShell = nothing

Thats it – now you have written the Visual Basic Script – and all you have to do is save it as a vbs file, or incorporate it into a web page using th vbscript tags.