[BR_forum] PRINT word wrapping

General development discussion.

Moderators: Susan Smith, admin, Gabriel

Post Reply
zheleznovster at gmail...

[BR_forum] PRINT word wrapping

Post by zheleznovster at gmail... »

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)
Top
ryan at wcs.ab.ca

[BR_forum] PRINT word wrapping

Post by ryan at wcs.ab.ca »

Hi Mikhail,

Here is a perfect chance to use the Debugger in MyEditBR.

Start a debug process and either set a breakpoint in this function
or step into it and then using the Debug Status window check the
record length of the CSV file.

Ryan.

Mikhail Zheleznov wrote:
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?
!DSPAM:48ecc886142951120185820!


------------------------------------------------------------------------

_______________________________________________
BR_forum mailing list
BR_forum@maillist.ads.net
http://maillist.ads.net/mailman/listinfo/br_forum


!DSPAM:48ecc886142951120185820!
_______________________________________________
BR_forum mailing list
BR_forum@maillist.ads.net
http://maillist.ads.net/mailman/listinfo/br_forum

Post generated using Mail2Forum (http://www.mail2forum.com)
Top
gothnerd at gmail.com

[BR_forum] PRINT word wrapping

Post by gothnerd at gmail.com »

What does your open #Csvfile: line look like? Sounds like it may not have a
recl set and it's defaulting to 133... Just a guess.

-jbowman

-----Original Message-----
From: br_forum-bounces@maillist.ads.net
[mailto:br_forum-bounces@maillist.ads.net] On Behalf Of Ryan J. Mills
Sent: Wednesday, October 08, 2008 11:14 AM
To: Business Rules Forum
Subject: Re: [BR_forum] PRINT word wrapping

Hi Mikhail,

Here is a perfect chance to use the Debugger in MyEditBR.

Start a debug process and either set a breakpoint in this function or step into
it and then using the Debug Status window check the record length of the CSV
file.

Ryan.

Mikhail Zheleznov wrote:
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?
!DSPAM:48ecc886142951120185820!


----------------------------------------------------------------------
--

_______________________________________________
BR_forum mailing list
BR_forum@maillist.ads.net
http://maillist.ads.net/mailman/listinfo/br_forum


!DSPAM:48ecc886142951120185820!
_______________________________________________
BR_forum mailing list
BR_forum@maillist.ads.net
http://maillist.ads.net/mailman/listinfo/br_forum

_______________________________________________
BR_forum mailing list
BR_forum@maillist.ads.net
http://maillist.ads.net/mailman/listinfo/br_forum

Post generated using Mail2Forum (http://www.mail2forum.com)
Top
gothnerd at gmail.com

[BR_forum] PRINT word wrapping

Post by gothnerd at gmail.com »

You might also try adding a form statement to your print, like:

print #Csvfile,using 'form pos 1,C 10000' : longstring$

-john

-----Original Message-----
From: br_forum-bounces@maillist.ads.net
[mailto:br_forum-bounces@maillist.ads.net] On Behalf Of Ryan J. Mills
Sent: Wednesday, October 08, 2008 11:14 AM
To: Business Rules Forum
Subject: Re: [BR_forum] PRINT word wrapping

Hi Mikhail,

Here is a perfect chance to use the Debugger in MyEditBR.

Start a debug process and either set a breakpoint in this function or step into
it and then using the Debug Status window check the record length of the CSV
file.

Ryan.

Mikhail Zheleznov wrote:
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?
!DSPAM:48ecc886142951120185820!


----------------------------------------------------------------------
--

_______________________________________________
BR_forum mailing list
BR_forum@maillist.ads.net
http://maillist.ads.net/mailman/listinfo/br_forum


!DSPAM:48ecc886142951120185820!
_______________________________________________
BR_forum mailing list
BR_forum@maillist.ads.net
http://maillist.ads.net/mailman/listinfo/br_forum

_______________________________________________
BR_forum mailing list
BR_forum@maillist.ads.net
http://maillist.ads.net/mailman/listinfo/br_forum

Post generated using Mail2Forum (http://www.mail2forum.com)
Top
zheleznovster at gmail...

[BR_forum] PRINT word wrapping

Post by zheleznovster at gmail... »

Yeah, it was a record length issue. It's all peachy now. Thanks, Ryan!

Post generated using Mail2Forum (http://www.mail2forum.com)
Top
Post Reply

Return to “General Development”