VB6 and ASCII text files

[kimmelsd33]

Using VB6, is there any special way of reading an ascii text file, that does not have any delimiters? The rows of data are seperated into seperate columns, but there is not "space" delimiter. Has me confused. I am trying to read in about 10 columns of data, with x number of rows. Any help or suggestions? Thanks

[vb5prgrmr]

Your fields are delimeted by a tab character (vbTab)... so you would split using vbTab...



Good Luck

[kimmelsd33]

I tried using vbTab and I am getting an error. Not sure what else to do.

[kimmelsd33]

This is the code I'm using to split the line:

strLine = TrimAll2(objstream.Readline)
myarray = Split(strLine, vbTab) 'use tab to create space
'read into variables
lithdepth = Format(Trim(myarray(0)), "0")
shale = Trim(myarray(1))
silt = Trim(myarray(2))
sand = Trim(myarray(3))
chalk = Trim(myarray(4))
lime = Trim(myarray(5))
dolo = Trim(myarray(6))
anhy = Trim(myarray(7))
coal = Trim(myarray(8))
chert = Trim(myarray(9))
nosamp = Trim(myarray(10))

This is the function code that processes each line:

Function TrimAll2(Str)
    '***remove all non ASCI chrs and reduce internal whitespace to single
    Dim i, strTemp, strOut, strCh

    strTemp = Str
    For i = 1 To Len(strTemp)
        strCh = Mid(strTemp, i, 1) '***look at each character in turn
        '***if the chr is a space and the previous added chr was a space ignore it
        '***otherwise add it on
        If Not (strCh = " " And Right(strOut, 1) = " ") And ((Asc(strCh) >= 64 And Asc(strCh) <= 122) _
            Or (Asc(strCh) >= 48 And Asc(strCh) <= 57) Or Asc(strCh) = 32 Or strCh = ".") Then
                strOut = strOut & strCh
        End If
    Next
    TrimAll2 = strOut
End Function

For some reason, vbTab is still giving me an error when reading the line into an assigned variable.

[vb5prgrmr]

Because the tab character equates to the ascii value of 9, you are removing the tabs from the string and thus are unable to split on the tab character...



Good Luck

[kimmelsd33]

So, do I need to recode the function? Or can I add to it? Or what would you suggest? Thanks for the response.

[vb5prgrmr]

From what I remember of your file, I would think that you could skip the removal function and go strait to spliting on vbtab but just to be sure check the results.



Good Luck

[kimmelsd33]

Thanks. I just skipped the function process and it is working.