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的可执行文件存在,所以要过滤扩展名靠判断.号意义不大
新闻名称:关于vb.net过滤txt的信息
浏览地址:https://www.cdcxhl.com/article38/dddgpsp.html
成都网站建设公司_创新互联,为您提供域名注册、商城网站、云服务器、外贸建站、网页设计公司、网站排名
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联