大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
dim a as string = replace(trim(textbox1.text),"TMD","") 'a 是过滤后的字符串,没有"TMD",
创新互联是一家专业提供中江企业网站建设,专注与成都网站设计、网站制作、外贸营销网站建设、H5建站、小程序制作等业务。10年已为中江众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
还有:if textbox1.text.indexOf("TMD") -1 then exit sub
就这个之类的
Private Sub Command1_Click()
Dim a$, b$
Open "c:\1.txt" For Input As #1 '假设你的文本文件叫1.txt,在C盘
Do While Not EOF(1)
Line Input #1, a
b = b a
Loop
Close #1
Print b '得到的数放在变量b里面,没有换行的.只有数字. 不知道你是这个意思吧
End Sub
这个恐怕有点难度,比如用户输入text.txt,你可能认为text.txt不允许输,但是说不定用户有文件名字命名为text.txt.exe的可执行文件存在,所以要过滤扩展名靠判断.号意义不大