文本文件替换字符串求教高手,谢谢!!!

ahbc123 2003-10-15 08:00:01
文本文件替换字符串求教高手,谢谢!!!
如有txt1:
<TD valign="top"><FONT color=#ffffff size=2><IMG height=20
src="_FoxTONAME.gif"
width=79>,你好!</FONT></TD>
</TR></TBODY></TABLE>
</TD>
我要把其中:
<IMG height=20
src="_FoxTONAME.gif"
width=79>
替换成:
<SPAN
id=_FoxTONAME></SPAN>

替换后数据为:
<TD vAlign=top><FONT color=#ffffff size=2><SPAN
id=_FoxTONAME></SPAN>,你好!</FONT></TD>
</TR></TBODY></TABLE>
</TD>

求教高手帮助写一段详细代码,谢谢!!!!!!!!!
...全文
40 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
hengxin54 2003-10-15
  • 打赏
  • 举报
回复
文本文件还是字符串?
是字符串的话楼上的已经说明了, 如果是文本文件, 那么你可以先读出其它的数据,然后再替换,最后重新保存替换后的字符串
capricciososoft 2003-10-15
  • 打赏
  • 举报
回复
当然,被替换的代码:<IMG height=20
src="_FoxTONAME.gif"
width=79>
这段代码若有一点改变(如多加个空格,对于HTML代码其实无关紧要)均会失败,所以建议用比较关键的词去定位。
例如:_FoxTONAME.gif是关键字,那么先定位它,然后查找左边第一个“<”和右边第一个“>”,然后“抠”下来。
可能用到的函数:
Mid
Instr
InstrRev
Replace
如有需要我给你它们的完成参考,详细代码我就懒得写了。
capricciososoft 2003-10-15
  • 打赏
  • 举报
回复
在窗体上绘制两个文本框:text2 text3,
Text2.MultiLine = True
Text3.MultiLine = True
然后将
IMG height=20
src="_FoxTONAME.gif"
width=79>

<SPAN
id=_FoxTONAME></SPAN>

这两段在属性面板中赋给text2、text3

TEXT1 = Replace(TEXT1, TEXT2, TEXT3)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧