A few simple string/file manipulation questions

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

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.

Quote:

---

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

---

Shame on you Ei shame on you :D

VB Code:

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

:D

Now for number 2.
That's a tricky.:)

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

Quote:

---

Originally posted by DaoK


Shame on you Ei shame on you :D

VB Code:

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.

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

Actually, DaoK, I'm looking for efficiency above explaining.:D;):)

Quote:

---

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...:D

VB Code:

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

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.

VB Code:

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

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.