如何读取指定内容后面的内容

kabakey1 2010-11-09 08:09:09
比如我要读取桌面上的一个叫a.txt里的指定内容……比如这个A.TXT里内容是这样的
空我爱你。
空我想你。
空我想见你。
空我真的想你。


我要在文本框里读取


我爱你
我想你
我想见你
我真的想你


这个怎么做?
...全文
61 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinaboyzyq 2010-11-10
  • 打赏
  • 举报
回复
方法有很多种:
a=right(a,len(a)-1)
信阳毛尖 2010-11-10
  • 打赏
  • 举报
回复
chOld设为'空'
chNew设为 NULL
信阳毛尖 2010-11-10
  • 打赏
  • 举报
回复
使用int Replace( TCHAR chOld, TCHAR chNew ); 新字符替换老字符
lyserver 2010-11-10
  • 打赏
  • 举报
回复
使用Replace,比如:
[CODE=VB]
Dim strText As String
Open filename For Binary as #1
strText=Input(Lof(1),1)
Close #1
strText = Mid(Replace(vbCrLf + strText,vbCrLf + "空",vbCrlf+""),3)
Debug.Print strText
[/CODE]
of123 2010-11-10
  • 打赏
  • 举报
回复

F2 有一个 Bug,会删除正文中的“空”字。例如:

空我有空就去看你。
lxq19851204 2010-11-09
  • 打赏
  • 举报
回复

Private Sub Form_Load()
Dim ictr, jctr As String
Dim i As String

Open "D:\A.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, i
Text1 = Text1.Text & Replace(i, "空", "")
Loop
Close #1

End Sub

dbcontrols 2010-11-09
  • 打赏
  • 举报
回复
逐行取出
用Mid取出后面的

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧