i solved it my self
in case anyone need this here is code:
List1.Clear
Dim sInput As String
sInput = Text1.Text
Dim Item
For Each Item In Split(sInput, "</option>")
Item = Mid(Item, InStrRev(Item, ">") + 1)
If Len(Item) Then List1.AddItem Item
Next
Printable View
i solved it my self
in case anyone need this here is code:
List1.Clear
Dim sInput As String
sInput = Text1.Text
Dim Item
For Each Item In Split(sInput, "</option>")
Item = Mid(Item, InStrRev(Item, ">") + 1)
If Len(Item) Then List1.AddItem Item
Next
:):eek::bigyello::wave:
Smells like an accident waiting to happen.
HTML is very loose and floppy. For example:
</option >
is perfectly legal, as is:
</optionCRLF> and </optionTAB> and others.
When he runs into one of those the wheels will come off. Data corruption, lost data, etc. You can never trust HTML as an input source.
Very large and messy programs (browsers) have to deal with this, as do large and messy utilities that make attempts to clean up the dog's breakfast known as HTML. "HTML Tidy" is one of the older ones.