converting tabs into spaces?

[p s]

hi all
i have a vb6 project, one of the functions is to read in a text file and
place it into an array
problem is, when people use the TAB key in the original file that is read, i
just get the tab code in the string,
what i need is for the TAB to literally become that many SPACES ... the
problem is this
can vary depending on where exactly the TAB key is hit!
i have tried

sOrigString = Replace(sOrigSt ring, vbTab, " ")

but this just puts in one space
of course if someone hits the tab key at the start of the line it will jump
the cursor further than if someone hit it a few characters in (if you know
what i mean!)

can anybody help?

thanks
pete

[steve]

On Tue, 22 Jul 2003 15:15:07 GMT, "p s" <pe***********@ hotmail.com>
wrote:

hi all
i have a vb6 project, one of the functions is to read in a text file and
place it into an array
problem is, when people use the TAB key in the original file that is read, i
just get the tab code in the string,
what i need is for the TAB to literally become that many SPACES ... the
problem is this
can vary depending on where exactly the TAB key is hit!
i have tried

sOrigString = Replace(sOrigSt ring, vbTab, " ")

but this just puts in one space
of course if someone hits the tab key at the start of the line it will jump
the cursor further than if someone hit it a few characters in (if you know
what i mean!)

can anybody help?

thanks
pete

I'm not sure if you can get the tab size programatically without some
fairly complex complex coding. If you know the tab size you could just
use something like
sOrigString = Replace(sOrigSt ring, vbTab, string(nTabSize , " "))

where tabsize is set to 4 or 8 or whatever you tabsize is.
steve

[p s]

"steve hotmail.com>" <stesrc@<remove .this.antispam. bit> wrote in message
news:vh******** *************** *********@4ax.c om...

On Tue, 22 Jul 2003 15:15:07 GMT, "p s" <pe***********@ hotmail.com>
wrote:

hi all
i have a vb6 project, one of the functions is to read in a text file and
place it into an array
problem is, when people use the TAB key in the original file that is read, ijust get the tab code in the string,
what i need is for the TAB to literally become that many SPACES ... the
problem is this
can vary depending on where exactly the TAB key is hit!
i have tried

sOrigString = Replace(sOrigSt ring, vbTab, " ")

but this just puts in one space
of course if someone hits the tab key at the start of the line it will jumpthe cursor further than if someone hit it a few characters in (if you knowwhat i mean!)

can anybody help?

thanks
pete

I'm not sure if you can get the tab size programatically without some
fairly complex complex coding. If you know the tab size you could just
use something like
sOrigString = Replace(sOrigSt ring, vbTab, string(nTabSize , " "))

where tabsize is set to 4 or 8 or whatever you tabsize is.
steve

thanks steve...
but doesnt the actual amount of spaces change depending on where you are in
the line?
e.g. tab stops are set up every 8th character... tabbing at start of the
line will mean nTabSize =8 , 5 chars in and nTabSize=3
?
cheers
pete

[steve]

On Tue, 22 Jul 2003 15:43:44 GMT, "p s" <pe***********@ hotmail.com>
wrote:

"steve hotmail.com>" <stesrc@<remove .this.antispam. bit> wrote in message
news:vh******* *************** **********@4ax. com...

On Tue, 22 Jul 2003 15:15:07 GMT, "p s" <pe***********@ hotmail.com>
wrote:

>hi all
>i have a vb6 project, one of the functions is to read in a text file and
>place it into an array
>problem is, when people use the TAB key in the original file that isread, i >just get the tab code in the string,
>what i need is for the TAB to literally become that many SPACES ... the
>problem is this
>can vary depending on where exactly the TAB key is hit!
>i have tried
>
>sOrigString = Replace(sOrigSt ring, vbTab, " ")
>
>but this just puts in one space
>of course if someone hits the tab key at the start of the line it willjump >the cursor further than if someone hit it a few characters in (if youknow >what i mean!)
>
>can anybody help?
>
>thanks
>pete
>

I'm not sure if you can get the tab size programatically without some
fairly complex complex coding. If you know the tab size you could just
use something like
sOrigString = Replace(sOrigSt ring, vbTab, string(nTabSize , " "))

where tabsize is set to 4 or 8 or whatever you tabsize is.
steve

thanks steve...
but doesnt the actual amount of spaces change depending on where you are in
the line?
e.g. tab stops are set up every 8th character... tabbing at start of the
line will mean nTabSize =8 , 5 chars in and nTabSize=3
?
cheers
pete

Yes it does change which is where the complex coding comes in.

Maybe you could read the line up to a tab chr. Then pad out with
spaces up to the next tab position (given a fixed tab size) then
repeat the process until you are finished.

I've done a similar thing building strings but not on strings being
read then converted. I'll dig out the code if you think it might help
steve

[p s]

> Yes it does change which is where the complex coding comes in.

Maybe you could read the line up to a tab chr. Then pad out with
spaces up to the next tab position (given a fixed tab size) then
repeat the process until you are finished.

I've done a similar thing building strings but not on strings being
read then converted. I'll dig out the code if you think it might help
steve

thanks steve,

i thought i may have to take this aproach... but then wondered if anyone had
already done it as it seems like it should be a common problem
is there a fixed tab size i should look at, out of interest? these are files
created in windows notepad. can i assume a default?

cheers
pete

[Tony Proctor]

In general, a TAB doesn't correspond to a fixed number of spaces, or even a
fixed destination column. In ANSI terms, it's a "format effector" rather
than a "graphic character".

However, if you're using the old VDU convention of 8-character TAB settings,
then this might help:

Private Function iNext(iCh As Integer) As Integer
' Returns the next TAB-column position from the current character position
iNext = 8 * ((iCh \ 8) + 1)
End Function

If you have a TAB at character position iCh then you would simply have to
replace it by

Space$(iNext(iC h)-iCh)
Tony

"p s" <pe***********@ hotmail.com> wrote in message
news:%x******** ***********@new s-text.cableinet. net...

hi all
i have a vb6 project, one of the functions is to read in a text file and
place it into an array
problem is, when people use the TAB key in the original file that is read, i just get the tab code in the string,
what i need is for the TAB to literally become that many SPACES ... the
problem is this
can vary depending on where exactly the TAB key is hit!
i have tried

sOrigString = Replace(sOrigSt ring, vbTab, " ")

but this just puts in one space
of course if someone hits the tab key at the start of the line it will jump the cursor further than if someone hit it a few characters in (if you know
what i mean!)

can anybody help?

thanks
pete

[Al]

why don't you setup a temp table or array with fields
explain.
assuming that your .TXT file is as follow

John Doe Somewhere in Usa New York, NY 10005 555-5555
president
John Doe Somewhere in Usa New York, NY 10005 555-5555
president
John Doe Somewhere in Usa New York, NY 10005 555-5555
president
John Doe Somewhere in Usa New York, NY 10005 555-5555
president
John Doe Somewhere in Usa New York, NY 10005 555-5555
president
'- your text file setting.
There is 16 space starting from "John Doe" to (Somewhere in usa)
There is 30 space starting from "Somewhere in usa" to (New Yok, NY 10005)
There is 20 space starting from "New York, NY 10005" to (555-5555)
There is 8 space starting "555-55555" to (president)
There is 25 space starting from "president" to (blank spaces)

'- Array or TempTable. (Fields)
field1 = Name Text (16)
field2 = Address Text (30)
field3 = CityStaZip Text (20)
field4 = Telephone Text (8)
field5 = Title Text (25)

'- Read the File
OPEN "TEXT FILE" for input as #1
input #1 field1, field2, field3, field4, field5
I hope this is what you are looking for.
Good Luck...!

"p s" <pe***********@ hotmail.com> wrote in message
news:%x******** ***********@new s-text.cableinet. net...

hi all
i have a vb6 project, one of the functions is to read in a text file and
place it into an array
problem is, when people use the TAB key in the original file that is read, i just get the tab code in the string,
what i need is for the TAB to literally become that many SPACES ... the
problem is this
can vary depending on where exactly the TAB key is hit!
i have tried

sOrigString = Replace(sOrigSt ring, vbTab, " ")

but this just puts in one space
of course if someone hits the tab key at the start of the line it will jump the cursor further than if someone hit it a few characters in (if you know
what i mean!)

can anybody help?

thanks
pete

[Tony Proctor]

Sorry, mixing-up my 1:n and 0:n-1 indexing. Should have been

Private Function iNext(iCh As Integer) As Integer
iNext = 8 * (((iCh - 1) \ 8) + 1) + 1
End Function

Tony

"Tony Proctor" <tony_proctor@a imtechnology_NO SPAM.com> wrote in message
news:e0******** ******@tk2msftn gp13.phx.gbl...

In general, a TAB doesn't correspond to a fixed number of spaces, or even a fixed destination column. In ANSI terms, it's a "format effector" rather
than a "graphic character".

However, if you're using the old VDU convention of 8-character TAB settings, then this might help:

Private Function iNext(iCh As Integer) As Integer
' Returns the next TAB-column position from the current character position
iNext = 8 * ((iCh \ 8) + 1)
End Function

If you have a TAB at character position iCh then you would simply have to
replace it by

Space$(iNext(iC h)-iCh)
Tony

"p s" <pe***********@ hotmail.com> wrote in message
news:%x******** ***********@new s-text.cableinet. net...

hi all
i have a vb6 project, one of the functions is to read in a text file and
place it into an array
problem is, when people use the TAB key in the original file that is read,

i

just get the tab code in the string,
what i need is for the TAB to literally become that many SPACES ... the
problem is this
can vary depending on where exactly the TAB key is hit!
i have tried

sOrigString = Replace(sOrigSt ring, vbTab, " ")

but this just puts in one space
of course if someone hits the tab key at the start of the line it will

jump

the cursor further than if someone hit it a few characters in (if you

know what i mean!)

can anybody help?

thanks
pete

[p s]

thanks tony, same principle as norms code, exactly what i needed

"Tony Proctor" <tony_proctor@a imtechnology_NO SPAM.com> wrote in message
news:OT******** ******@tk2msftn gp13.phx.gbl...

Sorry, mixing-up my 1:n and 0:n-1 indexing. Should have been

Private Function iNext(iCh As Integer) As Integer
iNext = 8 * (((iCh - 1) \ 8) + 1) + 1
End Function

Tony

"Tony Proctor" <tony_proctor@a imtechnology_NO SPAM.com> wrote in message
news:e0******** ******@tk2msftn gp13.phx.gbl...

In general, a TAB doesn't correspond to a fixed number of spaces, or even

a

fixed destination column. In ANSI terms, it's a "format effector" rather
than a "graphic character".

However, if you're using the old VDU convention of 8-character TAB

settings,

then this might help:

Private Function iNext(iCh As Integer) As Integer
' Returns the next TAB-column position from the current character position iNext = 8 * ((iCh \ 8) + 1)
End Function

If you have a TAB at character position iCh then you would simply have to replace it by

Space$(iNext(iC h)-iCh)
Tony

"p s" <pe***********@ hotmail.com> wrote in message
news:%x******** ***********@new s-text.cableinet. net...

hi all
i have a vb6 project, one of the functions is to read in a text file and place it into an array
problem is, when people use the TAB key in the original file that is

read,

i

just get the tab code in the string,
what i need is for the TAB to literally become that many SPACES ... the problem is this
can vary depending on where exactly the TAB key is hit!
i have tried

sOrigString = Replace(sOrigSt ring, vbTab, " ")

but this just puts in one space
of course if someone hits the tab key at the start of the line it will

jump

the cursor further than if someone hit it a few characters in (if you

know what i mean!)

can anybody help?

thanks
pete

[p s]

cheers al
problem is my lines are varying ... they are not uniform as in your example
thanks again
pete

"Al" <al*****@mashis pano.com> wrote in message
news:un******** *****@TK2MSFTNG P12.phx.gbl...

why don't you setup a temp table or array with fields
explain.
assuming that your .TXT file is as follow

John Doe Somewhere in Usa New York, NY 10005 555-5555
president
John Doe Somewhere in Usa New York, NY 10005 555-5555
president
John Doe Somewhere in Usa New York, NY 10005 555-5555
president
John Doe Somewhere in Usa New York, NY 10005 555-5555
president
John Doe Somewhere in Usa New York, NY 10005 555-5555
president
'- your text file setting.
There is 16 space starting from "John Doe" to (Somewhere in usa)
There is 30 space starting from "Somewhere in usa" to (New Yok, NY 10005)
There is 20 space starting from "New York, NY 10005" to (555-5555)
There is 8 space starting "555-55555" to (president)
There is 25 space starting from "president" to (blank spaces)

'- Array or TempTable. (Fields)
field1 = Name Text (16)
field2 = Address Text (30)
field3 = CityStaZip Text (20)
field4 = Telephone Text (8)
field5 = Title Text (25)

'- Read the File
OPEN "TEXT FILE" for input as #1
input #1 field1, field2, field3, field4, field5
I hope this is what you are looking for.
Good Luck...!

"p s" <pe***********@ hotmail.com> wrote in message
news:%x******** ***********@new s-text.cableinet. net...

hi all
i have a vb6 project, one of the functions is to read in a text file and
place it into an array
problem is, when people use the TAB key in the original file that is read,

i

just get the tab code in the string,
what i need is for the TAB to literally become that many SPACES ... the
problem is this
can vary depending on where exactly the TAB key is hit!
i have tried

sOrigString = Replace(sOrigSt ring, vbTab, " ")

but this just puts in one space
of course if someone hits the tab key at the start of the line it will

jump

the cursor further than if someone hit it a few characters in (if you

know what i mean!)

can anybody help?

thanks
pete