|
Hi Les,
I tried your method but it didn't work...
Here is the code:
function Join($Array, OPTIONAL $Delimiter, OPTIONAL $MaxCount)
dim $count
if vartype($Delimiter)=0 ; not passed'
$Delimiter=''
endif
if vartype($MaxCount)=0 ; not passed
; remember, array starts at element 0!
$MaxCount=ubound($Array)
endif
$Join=''
$count=0
for each $element in $Array
if $count<=$MaxCount
$Join=$Join+$element+$Delimiter
endif
$count=$count+1
next
$Join=substr($Join,1,len($Join)-len($Delimiter))
endfunction
Function ReadFile($file)
Dim $lf, $f, $_, $t
$lf=chr(10)
$f=freefilehandle
$_=open($f,$file)
if @error exit @error endif
do $t=$t+$lf+readline($f) until @error
$_=close($f)
$ReadFile=split(substr($t,2),$lf)
EndFunction
$msg = Join(ReadFile('c:\temp\test.txt'),@CRLF)
$ = MessageBox($msg,'Test',,)
| 
