I dont understand how...?

[mantooth]

I work on a small program in which the user opens a textfile into a richtextbox.
I want the program to add some characters to each line of the text that the user has selected to open with the commondialog Open.
1. Now, how can my program tell the path of the file that the user has selected, because as far as i can see, i need the path of the file in order to be able to open it for appending i.e.?

2. How do i count all the lines in a text?

Kind regards

Mantooth

[Mark Sreeves]

this will load a selected file into a RichTextBox:

Private Sub Command1_Click()
CommonDialog1.ShowOpen

RichTextBox1.FileName = CommonDialog1.FileName

End Sub

to count the lines you could just count the CRLF chars

Private Function countLines() As Integer
Dim i As Integer
Dim crlfpos As Long
Dim strtemp As String
strtemp = RichTextBox1.Text
Do
    crlfpos = InStr(strtemp, vbCrLf)
    If crlfpos = 0 Then Exit Do
        i = i + 1
        strtemp = Mid(strtemp, crlfpos + 1)
    Loop
countLines = i
End Function

[mantooth]

That works fine but....
I want to add characters to a textfile with over 20000 lines in it.
Something that can write "V " in front of each line in the document.
How can i make something that adds that to a line and then proceeds with the next line until the end of the text?

I really appreciate your help
I´ve just started with VB6

Frank

[Serge]

As I understand you correctly, you want to append V (or any other character(s)) to the beginning of each line:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long
Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1

Private Sub Command1_Click()
    Dim lngCount As Long
    Dim lngLineIndex As Long
    Dim lngLength As Long
    Dim strBuffer As String
    Dim strRichText As String
    Dim i As Integer
    
    'Get Line count
    lngCount = SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0, 0)
    
    With RichTextBox1
        For i = 0 To lngCount - 1
            'Get line index
            lngLineIndex = SendMessage(.hwnd, EM_LINEINDEX, i, 0)
            'get line length
            lngLength = SendMessage(.hwnd, EM_LINELENGTH, lngLineIndex, 0)
            'resize buffer
            strBuffer = Space(lngLength)
            'get line text
            Call SendMessageStr(.hwnd, EM_GETLINE, i, ByVal strBuffer)
            'append "V" at the beginning of the line
            strRichText = strRichText & "V " & strBuffer & vbCrLf
        Next
        'rewrite text in RichTextBox
        .Text = strRichText
    End With
    
End Sub

[mantooth]

This works very well for some of my files.
However when i try to do it with the biggest file i
get an overflow error?

Frank

[mantooth]

Serge.
Well, actually after trying with a smaller but still big file, i just discovered that when i try to run the program it freezes.

Frank.

[Serge]

This may happen if the number of lines in the RichTextBox more then 2,147,483,647, which is a long data type. If that's the case, then all you have to do is to change lngCount to something bigger, like double, then it will allow you have up to 4.94065645841247E-324 lines. Also, when you have a very big loop, then it may look that the program freezes, so let's fix that too.
Lets assume that double will do it, so let's change the code to something like this:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long
Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1

Private Sub Command1_Click()
    Dim dblCount As Double
    Dim dblLineIndex As Double
    Dim dblLength As Double
    Dim strBuffer As String
    Dim strRichText As String
    Dim i As Double
    
    'Get Line count
    dblCount = SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0, 0)
    
    With RichTextBox1
        For i = 0 To dblCount - 1
            'Allow operating system to procces other events
            DoEvents
            'Get line index
            dblLineIndex = SendMessage(.hwnd, EM_LINEINDEX, i, 0)
            'get line length
            dblLength = SendMessage(.hwnd, EM_LINELENGTH, dblLineIndex, 0)
            'resize buffer
            strBuffer = Space(dblLength)
            'get line text
            Call SendMessageStr(.hwnd, EM_GETLINE, i, ByVal strBuffer)
            'append "V" at the beginning of the line
            strRichText = strRichText & "V " & strBuffer & vbCrLf
        Next
        'rewrite text in RichTextBox
        .Text = strRichText
    End With
    
End Sub

[mantooth]

Thanks alot Serge!
This works perfect.
Is it possible to add a Progressbar since the process takes
a long time. In case yes, How do i do that.

Kind regards

Frank

[V(ery) Basic]

        For i = 0 To dblCount - 1
            'Allow operating system to procces other events
            DoEvents
            'MY CODE, NOT SERGE'S, MINE
            ProgressBar1.Value = cint(i/dblCount * 100)
            


'Get line index
            dblLineIndex = SendMessage(.hwnd, EM_LINEINDEX, i, 0)
            'get line length
            dblLength = SendMessage(.hwnd, EM_LINELENGTH, dblLineIndex, 0)
            'resize buffer
            strBuffer = Space(dblLength)
            'get line text
            Call SendMessageStr(.hwnd, EM_GETLINE, i, ByVal strBuffer)
            'append "V" at the beginning of the line
            strRichText = strRichText & "V " & strBuffer & vbCrLf
        Next
        'rewrite text in RichTextBox
        .Text = strRichText

[V(ery) Basic]

Hmmm. I suppose you're getting a division by zero error on the first loop. Well, I'm sure Serge can figure that one out.

[Serge]

Yeap, it's easy enough to fix:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long
Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1

Private Sub Command1_Click()
    Dim dblCount As Double
    Dim dblLineIndex As Double
    Dim dblLength As Double
    Dim strBuffer As String
    Dim strRichText As String
    Dim i As Double
    
    'Get Line count
    dblCount = SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0, 0)
    
    With RichTextBox1
        For i = 0 To dblCount - 1
            'You have to start with 1 (i + 1)
            'Otherwise you would have progressbar not finished completely
            ProgressBar1.Value = (i + 1) / dblCount * 100
            
            'Allow operating system to procces other events
            DoEvents
            'Get line index
            dblLineIndex = SendMessage(.hwnd, EM_LINEINDEX, i, 0)
            'get line length
            dblLength = SendMessage(.hwnd, EM_LINELENGTH, dblLineIndex, 0)
            'resize buffer
            strBuffer = Space(dblLength)
            'get line text
            Call SendMessageStr(.hwnd, EM_GETLINE, i, ByVal strBuffer)
            'append "V" at the beginning of the line
            strRichText = strRichText & "V " & strBuffer & vbCrLf
        Next
        'rewrite text in RichTextBox
        .Text = strRichText
    End With
    
End Sub

[mantooth]

this works well.
My program is used for conversion of navigational data.
I still have a problem with the largest file which contains
Fixes or intersections. There are probably 130.000 of them so the textfile is that long.
I was wondering if there is another method of writing to a text without looping the hole text, as it would take forever to convert these data? The progressbar hardly moves at all.
The other files which contains radiobeacons are easy enough to convert.

Kind regards

Frank