| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1542 人关注过本帖, 1 人收藏
标题:如何去除由excel转出来的txt文件中的“大空格”?
取消只看楼主 加入收藏
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:70%
收藏(1)
已结贴  问题点数:20 回复次数:1 
如何去除由excel转出来的txt文件中的“大空格”?
现有一个由excel转出来的txt文件,内部所有的空格都是“大空格”,估计是tab,我已可以读出其中所需要的一行,但是想去除其中的“大空格”,也就是说只需要字符串,但是我用了S = Replace(S, vbTab, "")语句,发现不管用,在text1.text中还是显示“大空格”,请问这是什么原因?
现将我的程序贴出,请帮我看看哪里错了,谢谢。
附件为需要读的11.txt文件
11.zip (2.77 KB)

Private Sub Command1_Click()
Open "c:\11.txt" For Input As #1
Dim S As String
S = Replace(S, vbTab, " ")
Do While Not EOF(1)
Line Input #1, S
If InStr(S, Label1.Caption) <> 0 Then
Label3.Caption = Right(S, 315)
Text1.Text = S
Exit Do
End If
Loop
Close
End Sub

Private Sub Form_Load()
Label1.Caption = "Bin1"
End Sub
 再增加一个附件为我编写的程序
提取含指定字符的行.zip (2.38 KB)


[ 本帖最后由 ictest 于 2012-3-22 21:56 编辑 ]
搜索更多相关主题的帖子: 如何 字符串 附件 excel 
2012-03-22 21:54
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
收藏
得分:0 
谢谢您的帮助!
2015-10-20 19:25
快速回复:如何去除由excel转出来的txt文件中的“大空格”?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024734 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved