A few simple string/file manipulation questions

[eiSecure]

Here's a list of a few questions I've got.

1. How do I replace the complete contents of a file with something else?
2. How do I parse HTML (eg.: Parse the <TITLE></TITLE> tags and display the contents in a text box, and loop it over, and if there's more than 1 <TITLE></TITLE> tag, load those into more textboxes.

[DaoK]

1. How do I replace the complete contents of a file with something else?

Shame on you Ei shame on you

Dim MyTempoStr As String
 
Open "c:\test.txt" For Input As #1
    MyTempoStr = Input(LOF(1), 1)
Close #1
 
MyTempoStr = Replace(MyTempoStr, vbCrLf, " ")
 
Open "c:\test2.txt" For Output As #1
    Print #1, MyTempoStr
Close #1

[eiSecure]

Now for number 2.
That's a tricky.

[DaoK]

Search with Instr the <TITLE> and </TITLE> and with MID take all stuff between...

[Mc Brain]

Originally posted by DaoK


Shame on you Ei shame on you

Dim MyTempoStr As String
 
Open "c:\test.txt" For Input As #1
    MyTempoStr = Input(LOF(1), 1)
Close #1
 
MyTempoStr = Replace(MyTempoStr, vbCrLf, " ")
 
Open "c:\test2.txt" For Output As #1
    Print #1, MyTempoStr
Close #1

You don't need to open you file, just kill the file and write a new one with what you want.

[DaoK]

I know that because I have Close#1 but it is cool to compare after both file... It's just an example...

[eiSecure]

Actually, DaoK, I'm looking for efficiency above explaining.

[eiSecure]

Originally posted by DaoK
Search with Instr the <TITLE> and </TITLE> and with MID take all stuff between...

It would be sooo much easier if there was a function for this...

[DaoK]

Dim theString As String
Dim startCount As Integer
Dim endCount As Integer
Dim block1 As String
Dim block2 As String
Dim i As Integer
 
block1 = "<Title>"
block2 = "</Title>"
theString = block1 & vbCrLf & "asdf" & vbCrLf & block2 ' That should be your html file here
startCount = 1
For startCount = 1 To Len(theString)
    startCount = InStr(startCount, theString, "[Start]", vbTextCompare)
    If startCount = 0 Then Exit For
    endCount = InStr(startCount, theString, "[End]", vbTextCompare)
    Debug.Print Mid(theString, startCount + Len(block1), endCount - (startCount + Len(block1)))
    startCount = endCount
Next startCount

That will search and put in debug.print all the text between the tag

[eiSecure]

Yes, but it's not good for looping.

When you loop the code, there always seems to be problems, and part of the text doesn't show up.

[DaoK]

Private Function BetweenStr(block1 As String, block2 As String) As String
Dim theString As String
Dim startCount As Integer
Dim endCount As Integer
Dim i As Integer
block1 = "<Title>"
block2 = "</Title>"
theString = block1 & vbCrLf & "asdf" & vbCrLf & block2 ' That should be your html file here
startCount = 1
startCount = InStr(startCount, theString, "[Start]", vbTextCompare)
If startCount = 0 Then Exit For
endCount = InStr(startCount, theString, "[End]", vbTextCompare)
BetweenStr = Mid(theString, startCount + Len(block1), endCount - (startCount + Len(block1)))
End Function

[eiSecure]

DaoK, even WITH removing your re-declarations of block1 and block2, your code doesn't loop well.

Almost every time, I get words that are cut off by a few characters.