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打印一条线,长度是100毫米怎么写?
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
各位大虾:
我有一个VB调用水晶报表的系统,报表是作为一个Design嵌在VB里的,今天发现打印第一张报表正常,同样的数据,在点打印再调用一次就会报 Memory Full的错误,但是 ......
我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机
可以啊
你先下个AT命令集合学习学习
我来顶
顶贴
LZ好厉害
不顶不行
老是排MP
引用
LZ好厉害
......
.net里面有没有像vb里的richtextbox控件啊?
有的。名字也差不多。RichEdit 或者 RichTextBox。
winfrom项目中工具箱有的吧
webform没的,只有win有
web可以用fckedit
引用
webform没的,只有win有 ......