Bruce,

Thank you for the suggestion. char(160) works like a charm and does not get truncated. I will try this when I upload files next time. Hopefully the extended ASCII blank space is accepted. If there are any problems, I'll seek further assistance.

Thanks again,
James

On 11/3/2023 6:06 PM, Bruce Chitiea wrote:
James: Try using the "hard space" character in place of the ASCII "soft space":

clear all var
set var vSpc     TEXT    = (char(160))
set var vfile    text    = ('test'+ format(.#date,'_YYYYMMDD')+ '.txt')
SET VAR vline01  TEXT    = (SFIL(.vSpc,50))
SET VAR vline02  TEXT    = (SFIL(.vSpc,50))
SET VAR vline03  TEXT    = (SFIL(.vSpc,50))
set var vline01          = (sput(.vline01, 'DATA',1))
set var vline02          = (sput(.vline02, 'DATA',45))
set var vline03          = (sput(.vline03, 'DATA',30))
set var vifexist integer = (chkfile(.vfile))
if vifexist = 1 then; delete .vfile; endif
output .vfile
WRITE .vline01  USING '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
WRITE .vline02  USING '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
WRITE .vline03  USING '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
output screen
launch .vfile
return

Ok, so that only gets you the front end. Will think about the back end. Maybe SKEEP or SKEEPI are worth a look.

Best Regards, Bruce

Bruce A. Chitiea
SafeSectors, Inc.
1142 S Diamond Bar Blvd # 442
Diamond Bar CA 91765-2203

(909) 238-9012 m


------ Original Message ------
From "James W. Kim, CPA, MBA" <[email protected]>
Date 11/3/2023 1:29:45 PM
Subject [RBASE-L] - creating text file with blank spaces in tact

I'm trying to generate a text file shaped like a rectangle, where each row is of equal length and includes blank spaces. My aim is to create a rectangle that consists of 3 rows, each with 50 columns. However, I'm encountering an issue where the blank spaces are being truncated in the resulting text file. Does anyone have a reliable method for crafting a rectangular text box that preserves all blank spaces without trimming them?

I am currently using version X.5 build 10.5.5.20615

-- create 50 x 3 block without truncating blank spaces
clear all var
set var vSpc     TEXT    = (char(32))
set var vfile    text    = ('test'+ format(.#date,'_YYYYMMDD')+ '.txt')
SET VAR vline01  TEXT    = (SFIL(.vSpc,50))
SET VAR vline02  TEXT    = (SFIL(.vSpc,50))
SET VAR vline03  TEXT    = (SFIL(.vSpc,50))
set var vline01          = (sput(.vline01, 'DATA',1))
set var vline02          = (sput(.vline02, 'DATA',45))
set var vline03          = (sput(.vline03, 'DATA',30))
set var vifexist integer = (chkfile(.vfile))
if vifexist = 1 then; delete .vfile; endif
output .vfile
WRITE .vline01  USING '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
WRITE .vline02  USING '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
WRITE .vline03  USING '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
output screen
launch .vfile
return

Thank you in advance,
James Kim

--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion on the web visit https://groups.google.com/d/msgid/rbase-l/68b28448-66d3-4f60-92de-a2f6a65e865c%40KimCPA.com.
--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion on the web visit https://groups.google.com/d/msgid/rbase-l/em602f62ce-ca97-4774-864b-8dc06782ca5b%40ffc94789.com.

--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion on the web visit https://groups.google.com/d/msgid/rbase-l/7dbd0c2b-6846-46ee-8903-c277ebd3398f%40KimCPA.com.

Reply via email to