* RESOLVED * Notepad vs. Wordpad

[run_GMoney]

You know how you can open a file in Notepad and it will display those square characters that are supposed to be carriage returns? Well Wordpad properly formats these characters. However, when I try to open this type of file as Input in Visual Basic, it doesn't recognize those characters just like Notepad. I'd like my Input statement to act like Wordpad does and recognize those special characters. Anyone know how to do that?
Here's the code:

Open .FileName For Input As #1
Do While Not EOF(1)
Input #1, lineArray(i)
   i = i + 1
Loop

[agmorgan]

First try using the Asc function to check what those 'boxes' actually are

[run_GMoney]

The boxes are carriage returns. I know this because Wordpad properly recognizes them.

[agmorgan]

So what is your problem?
What happens during your Input loop?

[run_GMoney]

See the screenie for the problem. I'd like to store each line of the text file into an array. But visual basic is seeing one line the same way that Notepad sees one line. I need VB to understand 1 line the way that Wordpad does. Is that a bit more clear as to what my problem is?

[run_GMoney]

Forgot to attach. Here it is

[agmorgan]

How about using the split function

strOutput = Split(strNotepad, vbCrLf)

Then reading back from the array?

[Static]

Try:

Line Input#1, linearray(i)

or better yet

Open .... as #1
Data = Input(Lof(1),1)

Lines = Split(Data,vbCrLf)

if that does not work...using Asc like suggested above...check see if maybe its just Cr or Lf (Usually a vbCrLF is 2 Boxes)

so either split(Data,vbCr) <-Most likely
or Split(Data,vbLf)

[run_GMoney]

Looks like I am going to have to check the Asc value. How do I go about using that function?

[techgnome]

You know, if you use Line Input #1 instead of just Input #1, it *might* work....

TG

[agmorgan]

Dim strTest As String
 
strTest = vbCrLf
 
Debug.Print Asc(strTest)

[run_GMoney]

But how can that help me determine what the square character is my file? Because that's what I need to find out.

[agmorgan]

Try what techgnome said first
If that doesnt work then try the Asc function.

What I put above was just an example, I thought you could
adapt it to your own situation.

Try

Open .FileName For Input As #1
Do While Not EOF(1)
Input #1, lineArray(i)
Debug.Print Asc(lineArray(i))
Debug.Print lineArray(i)  
i = i + 1
Loop

[Static]

open it in notepad to see the box..

Select the box and copy it

in vb msgbox Asc("Past Box Here")
then run it

if its one box..it should be CR (Asc 13)
if not then its LF (Asc 10)

if its 2 boxes then its vbCrLf or Chr$(13) & chr$(10)

[run_GMoney]

Here's the actual file. Maybe that will help. When I copied and pasted that square into VB, it just started a new line. Wouldn't copy the actual character.

[agmorgan]

Inbetween "Frontal w/ Revo" and "800.000 -3.261" you have
the following characters:
13, 32 (27 times), 13, 10, 32

13 is Carriage Return
10 is Line Feed
32 is Space

[run_GMoney]

Well, here's my latest code (thanks to Jamie's File I/O Tutorial).

Dim strArray() As String
 
    With cdlFiles
        .DialogTitle = "Open File"
        .Flags = cdlOFNFileMustExist + cdlOFNPathMustExist
        .ShowOpen
        Open .FileName For Input As #1
            strArray = Split(Input(LOF(1), 1), Chr$(13))
        Close #1
        lblInput.Caption = cdlFiles.FileName
        Text1.Text = strArray(0)
    End With

It manages to recognize the first carriage return (chr(13)) but nothing after that so I only get 2 elements in my array.

[big_k105]

this is a peice of code that i used in a program of mine to get rid of those squares. i havent modifided it to your situation jst thought i would share it and see if it helps you at all

startpos = 1
Do While True
            thispos = InStr(startpos, strFileRecord, Chr(10))
            If thispos = 0 Then Exit Do
            strFileRecord = Left(strFileRecord, thispos - 1) & Chr(13) & Chr(10) & Mid(strFileRecord, thispos + 1) ' replace chr(10) with chr(13) & chr(10)
            startpos = thispos + 2
            DoEvents
Loop

[run_GMoney]

Well, I just replaced the Chr$(13) with Chr$(10) and that seems to have done the trick, good enough anyway. Thanks for everyone's help on this.