vb 如何替换text内容？

来源：百度知道 编辑：UC知道 时间：2024/07/01 12:29:01
假设text1里面有以下内容：
第一天
123456
123456
第二天
987654
987654
第三天
159159
159915

=====
我要把以下内容替换成

第二天
987654
987654

替换成

第九天
112233
112233

====
高手提示点思路。。。
不固定把连续几行替换掉。就好像剪切一样。

=====
你这个方法上可以，貌似不效率。我是从1万多行里面替换10几行。有思路吗？

dim str1,str2 as string
dim a,b as long
str1=text1.text
do while instr(str1,"第二天")
a=instr(str1,"第二天")
str2=left(str1,a-1)
str1=right(str1,len(str1)-a)
b=instr(str1,"第")
if b=0 then b=len(str1)
str1=str2 & "第九天" & vbnewline & "112233" & vbnewline & "112233" & vbnewline & right(str1,len(str1)-b)
loop
text1.text=str1
机器上没有VB,编完之后没法测试,你试一下吧,大体思路就这样了

一万多行?哈哈,好吓人,你太逗了,一万行对计算机来说算毛毛雨啦,不过文本框刷新速度倒是挺慢的,我把代码改了,最后只把结果写入文本框,肯定不用半秒就运算完了