Split file into 2 based on empty line

[dplaut]

I have 1 file. There is one blank line at a random point in the file.

I need to split this file into two different files.

File #1 is all text above the blank line. File #2 is all text below the blank line.

Any help appreciated.

[Melba23]

dplaut,

Read the file into an array - look for the blank line - write the new files from the array using that line index as the stop/start point for the elements written.

M23

[dplaut]

Thanks, I'll try that

 

[pixelsearch]

Now image the file you want to split is... the following script, which contains a single blank line in it.
Another solution could be to read your file into a single string (you'll have to add some error checking in the script)
Uncomment the 2 FileWrite() lines if you want to the 2 resulting files to be written in your script directory

#include <MsgBoxConstants.au3>
Example()

Func Example()
   $sContent = FileRead(@ScriptFullPath)
   $iEmpty_line = StringInStr($sContent, @CRLF & @CRLF) ; 4 characters = 1 empty line
   $sContent_left = StringLeft($sContent, $iEmpty_line + 1) ; +1 includes 1st @CRLF
   $sContent_right = StringMid($sContent, $iEmpty_line + 4) ; +4 bypass @CRLF & @CRLF
   MsgBox($MB_SYSTEMMODAL, "Before empty line", $sContent_left)
   MsgBox($MB_SYSTEMMODAL, "After empty line", $sContent_right)
   ; FileWrite(@ScriptDir & "\todelete1.txt", $sContent_left)
   ; FileWrite(@ScriptDir & "\todelete2.txt", $sContent_right)
EndFunc   ;==>Example

 

[mikell]

If the blank line contains no white spaces AND the newlines are all @crlf, then you can use StringSplit

$s = StringSplit($txt, @crlf & @crlf, 3)

Else you can use a regex

$s = StringRegExp($txt, '(?s)(.*?\R)\h*\R(.*)', 3)

In both cases the 2 parts are in $s[0] and $s[1]