Question

VB如何读取文件每行第一个非空格字符

如文件中有如下（引号是说明）：读取后存入数组应是1,4，“回车”，“回车”，a。
12323213
“空格” 4444
“空格”“回车”
aasa

Answer 1

用一行行地读文件这方法，再把读入行的第一个字符去空格Ok。
Open "D:\Test_baidu.txt" For Input as #1
do While Not Eof(1)
Line Input #1,s
Loop
Msgbox Trim(mid(s,1,1) & Mid(s,2,len(s)))
Close #1

Answer 2

这样改：
'自定义结构类型
Private Type FILEITEM
PN As String * 20 '图片的名字
End Type
Dim s As FILEITEM '定义一个结构变量
Dim f As String

'获取字符串
Private Sub Command1_Click()

'打开文件
Open App.Path & "\1.MP3" For Binary As #1

Get #1, , s.PN '获取名字

Close #1

'显示
f = "你好" & Replace(s.PN, Chr(32), "") & ".bmp" '如何去掉中间的空格？

Cls
Print f

End Sub

Answer 3

最关键的部分：
变量wj为读入的每行内容
wj=trim(wj)
if len(wj)>1 then
sz(i)=left(wj,1)
else
sz(i)=chr(13)
end if