Dim newfile As New List(Of String)
创新互联-专业网站定制、快速模板网站建设、高性价比猇亭网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式猇亭网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖猇亭地区。费用合理售后完善,10年实体公司更值得信赖。
For Each line As String In System.IO.File.ReadAllLines("TextFile1.txt")
If Not line.StartsWith("3") Then newfile.Add(line)
Next
System.IO.File.WriteAllLines("TextFile1.txt", newfile)
建个集合,用System.IO.File的ReadAllLines读出所有内容,逐个判断,如果是需要的加入集合,如果是要删除的什么都不做,最后用WriteAllLines写入即可。
这里说明一下,上面那个代码是用来删除所有以3开头的文本行。
你是要把连续多个空格,变换成只需要一个空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
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
文章标题:vb点虐
去除换行 vb换行的代码
文章来源:https://www.cdcxhl.com/article22/ddgedcc.html
成都网站建设公司_创新互联,为您提供用户体验、响应式网站、关键词优化、域名注册、虚拟主机、手机网站建设
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联