Dim $Line, $Counter
$Counter = 0
Open(1,"File.csv")
Open(2,"Range1.csv",5)
Open(3,"Range2.csv",5)
Open(4,"Range3.csv",5)
$Line = Readline(1)
 While @Error = 0
  Select
    Case $Counter <= 2000
      WriteLine(2, $Line + @CRLF)
      $Counter = $Counter + 1
      $Line = Readline(1)
    Case $Counter => 20001 and $Counter <=4000
      Writeline(3, $Line + @CRLF
      $Counter = $Counter + 1
      $Line = Readline(1)
    Case $Counter >= 4001
      WriteLine(4, $Line + @CRLF)
      $Counter = $Counter + 1
      $Line = Readline(1)
  EndSelect
Loop
Close(1)
Close(2)
Close(3)
Close(4)

Break ON
$=SetOption("Explicit","ON")
 
$=udfSplitFile("BIGFILE.TXT","SMALLFILE.TXT",1000)
If @ERROR "ERROR: ["+@ERROR+"] "+@SERROR+@CRLF EndIf
 
Exit 0
 
Function udfSplitFile($sSource,Optional $sTarget,Optional $iMaxLines)
	Dim $sSuffix
	Dim $iLinesLeft,$iFileSeq
	Dim $fdSource,$fdTarget
	Dim $sLine
	
	If $sTarget="" $sTarget=$sSource EndIf
	If CInt($iMaxLines=0) $iMaxLines=1000 EndIf
	If InStrRev($sTarget,".")
		$sSuffix=SubStr($sTarget,InStrRev($sTarget,"."))
		$sTarget=Left($sTarget,InStrRev($sTarget,".")-1)
	EndIf

	$fdSource=FreeFileHandle()
	If @ERROR $udfSplitFile=@ERROR Exit @ERROR EndIf

	If Open($fdSource,$sSource) $udfSplitFile=@ERROR Exit @ERROR EndIf

	$sLine=ReadLine($fdSource)
	While Not @ERROR
		If Not($iLinesLeft)
			$iLinesLeft=CInt($iMaxLines)
			If $fdTarget $fdTarget=Close($fdTarget) EndIf
			$fdTarget=FreeFileHandle()
			If @ERROR $udfSplitFile=@ERROR Exit @ERROR EndIf
			$iFileSeq=$iFileSeq+1
			If Exist($sTarget+$iFileSeq+$sSuffix)
				Del $sTarget+$iFileSeq+$sSuffix
				If @ERROR $udfSplitFile=@ERROR Exit @ERROR EndIf
			EndIf
			If Open($fdTarget,$sTarget+$iFileSeq+$sSuffix,1+4) $udfSplitFile=@ERROR Exit @ERROR EndIf
		EndIf
		$sLine=WriteLine($fdTarget,$sLine+@CRLF)
		$iLinesLeft=$iLinesLeft-1
		If @ERROR $udfSplitFile=@ERROR Exit @ERROR EndIf
		$sLine=ReadLine($fdSource)
	Loop
	
	If $fdTarget $fdTarget=Close($fdTarget) EndIf
	$fdSource=Close($fdSource)

EndFunction

$counter = 0

$nul = Open(1,"File.csv")

$Line = Readline(1)

While @ERROR = 0

	$file = "Range" + val( int($counter/2000) + 1) + ".csv"
	
	If $file<>$file_old 
		If $file_old<>""
			$nul = Close(2)
		EndIf
		$nul = Open(2,$file,5)
	EndIf

	$nul = WriteLine(2, $Line + @CRLF)
	$file_old = $file
	$counter = $counter + 1

	$Line = Readline(1)

Loop

 
$SourceFile = 'file.csv'
$Counter = 1

Del 'c:\temp\subfile.????.csv'	; delete all output files


If $Open(5, $SourceFile, 2)	; open the source file
  $Line = ReadLine(5)		; read a line
  While Not @ERROR		; read until EndOfFile error
 
    ; create an index - 0000 to 9999 - to determine which group of 1000 we're in
    $Index = Right('0000' + CStr(Int($Counter / 1000)), 4)
 
    ; Define the output file based on a base file name/path, the index, and the extension
    $OutFile = 'c:\temp\subfile.' + $Index + '.csv'
 
    ; print the line, redirecting output to the current outfile
    $ = RedirectOutput($OutFile)
    $Line ?
    $ = RedirectOutput('')
 
    ; Read the next line and increment the counter
    $Line = ReadFile(5)
    $Counter = $Counter + 1
 
  Loop
 
  $ = Close(5)
 
Else
  ? 'Error opening ' $SourceFile ' - Aborting!' ? ?
  Exit 1
EndIf

$file = tail("some large file.txt",-1)

$min = 2000
$max = 4000

if ubound($file) >= $min-1 and ubound($file) <= $max-1
  ? "printing all lines between " $min " and " $max " line numbers."
  for $i = $min-1 to $max-1
    ? $file[$i]
  next
endif
Code:


Bryce





Edited by Bryce (2005-11-23 09:47 PM)