
Search and Replace string in a text box
x = Instr(TextReport, "DATE")
textreport.selstart = x
textreport.sellen = len("DATE")
textreport.seltext = "REPLACESTRING"
Quote:
> I am openning a .text file into a text box and display on the form.
> Just before displaying it on the form I need to search for a date and
> replace it. Any sugestions ?
> This is a part of my code
> Open gs_PanPath & "PANRPT.TXT" For Input As mn_RptFile
> TextReport.Text = Input$(LOF(mn_RptFile), mn_RptFile) 'Read report
> into text box
> Close mn_RptFile
> Thanks
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
--
Get Paid to Surf the Web:
http://www.alladvantage.com/go.asp?refid=APP000
Hey! My inglis is berfekt, isnt it?