[RESOLVED] Every new log to new row.

[Miha2c30]

Hi.
Anyone have code, that should save every new text to a new row?

This code saves text to the same row as previous.

Open "c:\file.txt" for Append as #1
Print #1, strData
Close #1

Miha2c30

[Hack]

Try

Print #1, strData & vbNewLine

[Miha2c30]

No still in the same line

[Hack]

What is strData and how is it created?

[Miha2c30]

It's a combobox (for browser)
Here's my code:

Private Sub cmdSearch_Click()
  wWeb.Navigate cboURL.Text
  
  Open "C:\MPLogs.txt" For Output As #1
  Print #1, cboURL.Text & vbNewLine
  Close #1
  
End Sub

[Hack]

Is strData a combo box control, or a variable containing a string (perhaps selected from a combo box?)?

[Miha2c30]

strData is combobox's text, which is not in drop menu

[Hack]

Ok, and you want to dump the contents of your combo box to a text file?

[Miha2c30]

Yes

[Hack]

Try

Private Sub Command1_Click()
Dim i As Long
  Open "c:\URL.txt" For Output As #1
    For i = 0 To cboURL.ListCount - 1
        cboURL.ListIndex = i
        Print #1, cboURL.List(cboURL.ListIndex)
    Next
    Close #1
End Sub

[Miha2c30]

Not working ... but it's ok. Anyway, thanks for help. I'll try to find out.

[Hack]

I don't understand. It works fine for me.

What does "not working" mean? Are you getting any data? An error?

[Miha2c30]

No, no... Sorry ... It works, but mine ComboBox's list was empty, but I wanted to log ComboBox's text, not list. Maybe it's easier, if I change ComboBox with TextBox. So, I need to log text from textbox.

[Mr.Mac]

Try .....

Just curious. Why did you set the index. I would have coded

Private Sub Command1_Click()
Dim i As Long
  Open "c:\URL.txt" For Output As #1
    For i = 0 To cboURL.ListCount - 1
        Print #1, cboURL.List(i)
    Next
    Close #1
End Sub

But I'm even more curious about the original problem. I have never seen the case where Print #1, Stuff$ did not create a new line.

I always have to use Print #1, Stuff$; to continue the same line.

Mac

[Hack]

Just curious. Why did you set the index. I would have coded

Private Sub Command1_Click()
Dim i As Long
  Open "c:\URL.txt" For Output As #1
    For i = 0 To cboURL.ListCount - 1
        Print #1, cboURL.List(i)
    Next
    Close #1
End Sub

And you would have been right as well. Both work.

[Hack]

No, no... Sorry ... It works, but mine ComboBox's list was empty, but I wanted to log ComboBox's text, not list. Maybe it's easier, if I change ComboBox with TextBox. So, I need to log text from textbox.

So, you are trying to add something to the combo box and then save it to a text file?

[Miha2c30]

No I'm creating a Web Browser and I have a TextBox, where people insert an URL. I want that URL saves to a file (txt).

[Hack]

Then

Open "c:\file.txt" for Append as #1
Print #1, Text1.Text
Close #1

should work for you.

[Mr.Mac]

No I'm creating a Web Browser and I have a TextBox, where people insert an URL. I want that URL saves to a file (txt).

Well, I say that if you run this:

Dim LogThis As String
Open "MyLog.txt" For Append As #1
LogThis = "line one"
MsgBox LogThis
Print #1, LogThis
Close #1
Open "MyLog.txt" For Append As #1
LogThis = "a different line"
MsgBox LogThis
Print #1, LogThis
Close #1
End Sub

and you do not get two lines in the file, then something is VERY wrong with your system. It is impossible that you are getting the error you describe.

Mac

[Miha2c30]

Aha It works now. I changed form to TextBox. Thanks for help

[Hack]

Not a problem. Anytime, and thank you for marking it resolved.