[BR_forum] PRINT word wrapping
Posted: Wed Oct 08, 2008 9:10 am
I wrote this to create a CSV file, but for some reason the lines in the resulting text file are wrapped to 133 characters
def library Fnwritecsvline(Mat Dc_Data$,Mat Dc_Data,Csvfile;___,longstring$*10000,Counter)
for Counter=1 to Udim(Mat Dc_Data$)
let longstring$(Inf:Inf)=trim$(Dc_Data$(Counter))
if counter><Udim(Mat Dc_Data$) then
let longstring$(Inf:Inf)="," !append comma if not last
end if
next Counter
for Counter=1 to Udim(Mat Dc_Data)
let longstring$(Inf:Inf)=trim$(Str$(Dc_Data(Counter)))
if Counter><Udim(Mat Dc_Data) then
let longstring$(Inf:Inf)="," !append comma if not last
end if
next Counter
print #Csvfile : longstring$
fnend
The word wrapping is turned off in the text editor. Any clues?
Post generated using Mail2Forum (http://www.mail2forum.com)
def library Fnwritecsvline(Mat Dc_Data$,Mat Dc_Data,Csvfile;___,longstring$*10000,Counter)
for Counter=1 to Udim(Mat Dc_Data$)
let longstring$(Inf:Inf)=trim$(Dc_Data$(Counter))
if counter><Udim(Mat Dc_Data$) then
let longstring$(Inf:Inf)="," !append comma if not last
end if
next Counter
for Counter=1 to Udim(Mat Dc_Data)
let longstring$(Inf:Inf)=trim$(Str$(Dc_Data(Counter)))
if Counter><Udim(Mat Dc_Data) then
let longstring$(Inf:Inf)="," !append comma if not last
end if
next Counter
print #Csvfile : longstring$
fnend
The word wrapping is turned off in the text editor. Any clues?
Post generated using Mail2Forum (http://www.mail2forum.com)