请教一个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语句读，并手工增加回车换行。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com