请教一个VB多重循环问题:
发布网友
发布时间:2023-11-07 09:28
我来回答
共2个回答
热心网友
时间:2024-10-28 09:21
如果就是要的到那七个“大”的话很简单
Function strFind() as string
dim i as long, j as long, strTxt as string
for i = 1 to len(f)
if mid(f,i,1) = "大" then j = j + 1
if j = 7 then exit for
next
strtxt = left(f,j)
strtxt = replace(strTxt,"小","")
strFind = strTxt
end sub
热心网友
时间:2024-10-28 09:22
不知道你f是从哪里得到的,是文本框中还是文本文件中读到的。
你先确保你读到的每一行是全的再继续下一步,即读出其中的大字。
如果F是来自于文本框他text1。只需一句代码即可得到结果
Text2.Text = Replace(Text1.Text, "小", "")
如果是来自于文件,则使用line input语句读,并手工增加回车换行。