Programming Forums > Application Development > Visual Basic

madhattertcm · Sep 4th, 2004, 11:48 AM

Heres what I'm wanting to do. Theres a certain part of the HTML file where all the text is..I want a vb program to be able to open that part of the text and edit it, and place it back into the html file..

Get what I'm saying?

Thanks

thechristelegacy · Sep 4th, 2004, 3:28 PM

hmm maybe you could somethign with like a place holder, to sort of make a template in a way.

e.g.

Template.html

(Toggle Plain Text)

<html>
<body>
{TEXT}
</body>
</html>

And then the program could open up the templace file, and just replace the {TEXT} with the actual text and then resave it as the real HTML page.

Pizentios · Sep 7th, 2004, 9:22 AM

What i would do is have a set of html comments, one for the start of the text area and one to end it. Then just have the vb code search for these strings (the html comments) and throw the text in between the comments. So your html file would llook somthing liek this:

(Toggle Plain Text)

<html>
<head>
<body>
<!--start of text-->
Your text goes here.
<!--end of text-->
some text that you don't want to ever change.
</body>
</html>

madhattertcm · Sep 7th, 2004, 10:31 PM

the HTML part is easy, I know how to do that.
But I don't know how to get say a textbox in VB to
search for that particular part of the html document

Ooble · Sep 8th, 2004, 11:11 AM

The text box doesn't search the file - your code does.

First, open the file for reading. Then parse it, line by line, into a string array, checking each one for the starting comment as you go. When you reach the comments, make a note of the line number. Then parse the bits between the comments, but don't save it into the array. When you reach the ending comment, start saving it again, until you reach the end of the file.

Next, open the file for output. Until you get to the comment (you stored the line number earlier), just output the string line by line. When you do, output the stuff you want. Then send the bottom bit (the ending comment onwards). And voila! You're done!

I realise you might not know how to do some (or any) of this. If there's anything you need help with, please post back.

Pizentios · Sep 10th, 2004, 11:34 AM

Here�s a function that will return the text between your two markers.

(Toggle Plain Text)

function grabtext(filename, search as string) as variant

dim check as boolean
dim text() as string
dim tmp() as string
dim read as string
dim y, x as integer

read = Space(FileLen(filename))
Open filename For Binary As #1
  Get #1, 1, read
Close #1

tmp() = Split(read, vbCrLf)

check = false

y = 0
x = 0

for x=0 to UBound(tmp)
    if (tmp(x) == search) then
        check = true
    else
        check = false
    end if
   
    if (check = true) then
        text(y) = tmp(x)
        y = y + 1
    end if
Next x
   
return text()

end function

Anyways, this code has not been tested yet at all, so there could be bugs in it. Good luck.

Infinite Recursion · Sep 10th, 2004, 4:15 PM

I'll run it through the garden this weekend... I think I may have a use for something similar.

Pizentios · Sep 13th, 2004, 10:03 AM

Has anybody tested that code? i will somtime today if need be.

Sep 4th, 2004, 3:28 PM	#2
thechristelegacy Expert Programmer Join Date: Jul 2004 Location: Somerset, Pa Posts: 707 Rep Power: 5	hmm maybe you could somethign with like a place holder, to sort of make a template in a way. e.g. Template.html (Toggle Plain Text) <html> <body> {TEXT} </body> </html> <html> <body> {TEXT} </body> </html> And then the program could open up the templace file, and just replace the {TEXT} with the actual text and then resave it as the real HTML page.

Sep 7th, 2004, 9:22 AM	#3
Pizentios Programming Guru Join Date: May 2004 Location: Brandon, Manitoba, Canada Posts: 2,023 Rep Power: 7	What i would do is have a set of html comments, one for the start of the text area and one to end it. Then just have the vb code search for these strings (the html comments) and throw the text in between the comments. So your html file would llook somthing liek this: (Toggle Plain Text) <html> <head> <body> <!--start of text--> Your text goes here. <!--end of text--> some text that you don't want to ever change. </body> </html> <html> <head> <body> <!--start of text--> Your text goes here. <!--end of text--> some text that you don't want to ever change. </body> </html> __________________ Profanity is the one language that all programmers understand. Check out my Blog <---updated Nov 30 2007!

Sep 8th, 2004, 11:11 AM	#5
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	The text box doesn't search the file - your code does. First, open the file for reading. Then parse it, line by line, into a string array, checking each one for the starting comment as you go. When you reach the comments, make a note of the line number. Then parse the bits between the comments, but don't save it into the array. When you reach the ending comment, start saving it again, until you reach the end of the file. Next, open the file for output. Until you get to the comment (you stored the line number earlier), just output the string line by line. When you do, output the stuff you want. Then send the bottom bit (the ending comment onwards). And voila! You're done! I realise you might not know how to do some (or any) of this. If there's anything you need help with, please post back. __________________ Me :: You :: Them

Sep 10th, 2004, 11:34 AM	#6
Pizentios Programming Guru Join Date: May 2004 Location: Brandon, Manitoba, Canada Posts: 2,023 Rep Power: 7	Here�s a function that will return the text between your two markers. (Toggle Plain Text) function grabtext(filename, search as string) as variant dim check as boolean dim text() as string dim tmp() as string dim read as string dim y, x as integer read = Space(FileLen(filename)) Open filename For Binary As #1 Get #1, 1, read Close #1 tmp() = Split(read, vbCrLf) check = false y = 0 x = 0 for x=0 to UBound(tmp) if (tmp(x) == search) then check = true else check = false end if if (check = true) then text(y) = tmp(x) y = y + 1 end if Next x return text() end function function grabtext(filename, search as string) as variant dim check as boolean dim text() as string dim tmp() as string dim read as string dim y, x as integer read = Space(FileLen(filename)) Open filename For Binary As #1 Get #1, 1, read Close #1 tmp() = Split(read, vbCrLf) check = false y = 0 x = 0 for x=0 to UBound(tmp) if (tmp(x) == search) then check = true else check = false end if if (check = true) then text(y) = tmp(x) y = y + 1 end if Next x return text() end function Anyways, this code has not been tested yet at all, so there could be bugs in it. Good luck. __________________ Profanity is the one language that all programmers understand. Check out my Blog <---updated Nov 30 2007!

Sep 10th, 2004, 4:15 PM	#7
Infinite Recursion Programming Guru Join Date: Jul 2004 Location: United States Posts: 3,467 Rep Power: 8	I'll run it through the garden this weekend... I think I may have a use for something similar. __________________ http://jasonpowers.net "There are a thousand hacking at the branches of evil to one who is striking at the root."

Sep 4th, 2004, 11:48 AM	#1
madhattertcm Newbie Join Date: Sep 2004 Posts: 2 Rep Power: 0	Heres what I'm wanting to do. Theres a certain part of the HTML file where all the text is..I want a vb program to be able to open that part of the text and edit it, and place it back into the html file.. Get what I'm saying? Thanks

Sep 7th, 2004, 10:31 PM	#4
madhattertcm Newbie Join Date: Sep 2004 Posts: 2 Rep Power: 0	the HTML part is easy, I know how to do that. But I don't know how to get say a textbox in VB to search for that particular part of the html document

Sep 13th, 2004, 10:03 AM	#8
Pizentios Programming Guru Join Date: May 2004 Location: Brandon, Manitoba, Canada Posts: 2,023 Rep Power: 7	Has anybody tested that code? i will somtime today if need be. __________________ Profanity is the one language that all programmers understand. Check out my Blog <---updated Nov 30 2007!

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Programming Forums > Application Development > Visual Basic

Vb And Html