VB读取TXT文件到TEXT1里面，TEXT1后面出现空格
Private Sub Command1_Click()
Open App.Path & "\版本说明.txt" For append As #1
Print #1, Text1.Text
Close #1 '关闭打开的文件
End Sub
Private Sub Form_Load()
Dim x As String
Open App.Path & "\1.txt" For Input As #1
Input #1, x
text1.Text = Input(LOF(1), 1)
Close #1
End Sub
COMMAND1保存后打开程序读取1.TXT到TEXT1 后面出现了空格比如123456后面空了几格，请问怎么不让后面这几格空格显示到TEXT1里面啊？
消除从文本文件中读取后的回车符
strLine = Replace(strLine, vbTab, "") 将tab符替换成""
strLine = Replace(strLine, Chr(0), "") 将行结束符替换成""
strLine = Replace(strlINE, vbCrLf, vbNullString)
text1.Text = RTrim(Input(LOF(1), 1))
最后的字符不是空格，是回车换行符,1楼的方法就行
谢谢````
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
