怎么用VB批量处理一个文本,去掉每一行中冒号后面的内容
比如之前是这样的___阃濆鈩:9295930住手我是你爹:630154呆呆带9:778413去掉冒号后的内容,变成___阃濆鈩住手我是你爹呆呆带9该怎么设计程序,有木有好...
比如之前是这样的
___阃濆鈩:9295930
住手我是你爹:630154
呆呆带9:778413
去掉冒号后的内容,变成
___阃濆鈩
住手我是你爹
呆呆带9
该怎么设计程序,有木有好心人给写一下 展开
___阃濆鈩:9295930
住手我是你爹:630154
呆呆带9:778413
去掉冒号后的内容,变成
___阃濆鈩
住手我是你爹
呆呆带9
该怎么设计程序,有木有好心人给写一下 展开
3个回答
2014-06-11
展开全部
建议使用替换的方式来做!但是要详细说说 你的文字 结构……
比如 你现在 所举例子是 冒号后边的内容直接到 段落的末尾……
如果都是这样的话 就用如下的替换方式:
ctrl+h 打开 替换窗口
1、查找里边填写 :*^13 ……注意这里的冒号 要与你文档的中的实际情况一样 必要时 复制粘贴
2、替换里面填写 ^p
3、勾选 使用通配符(点 更多 或者 选项 或者 高级)
4、全部替换
比如 你现在 所举例子是 冒号后边的内容直接到 段落的末尾……
如果都是这样的话 就用如下的替换方式:
ctrl+h 打开 替换窗口
1、查找里边填写 :*^13 ……注意这里的冒号 要与你文档的中的实际情况一样 必要时 复制粘贴
2、替换里面填写 ^p
3、勾选 使用通配符(点 更多 或者 选项 或者 高级)
4、全部替换
展开全部
Private Sub Command1_Click()
Dim s(1 To 100) As String
Dim b(1 To 100)
Dim i As Integer
Open "d:\1.txt" For Input As #1
Do While Not EOF(1) '如果没读到最后一行则循环
For i = 1 To 4
Line Input #1, s(i)
a = Split(s(i), ":")
Print a(0)
Next i
Loop
Close #1
End Sub
Dim s(1 To 100) As String
Dim b(1 To 100)
Dim i As Integer
Open "d:\1.txt" For Input As #1
Do While Not EOF(1) '如果没读到最后一行则循环
For i = 1 To 4
Line Input #1, s(i)
a = Split(s(i), ":")
Print a(0)
Next i
Loop
Close #1
End Sub
追问
能不能输出 或直接修改保存
追答
Private Sub Command1_Click()
Dim s(1 To 100) As String
Dim b(1 To 100)
Dim i As Integer
Open "d:\1.txt" For Input As #1
Do While Not EOF(1) '如果没读到最后一行则循环
For i = 1 To 4
Line Input #1, s(i)
a = Split(s(i), ":")
b(i)=a(0)
Next i
Loop
Close #1
Open "d:\1.txt" For Output As #1
for i=Lbound(b) to Ubound(b)
print #1,b(i)
next i
Close #1
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
提示一下你思路,按行读取,用split函数以“:”分割,然后保存
追问
不会 能帮忙写一下吗
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询