易截截图软件、单文件、免安装、纯绿色、仅160KB

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楼的方法就行

谢谢````


相关问答:

关于ASP.net(vb)播放监控录像的问题

我有厂家做的ASP的监控录像(DVR)的局域网播放的源程序与控件,想要用ASP.net做一个视频回放的程序(利用他的控件)但不知如下去做,望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......

vb如何调用Illustrator(此前Illustrator未启动)?

请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

从VB转行VB.NET~~~开始的时候如何学基础入门啊~

VB偶学得不错,现在大一,高三的时候就学VB了,现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年,对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......

VB 请教高手关于用户控件问题

我制作了个用户控件,需要动态加载到窗体上

    Set objExt = Controls.Add("工程1.meActiveX", argName)
    objExt.Visible = True

程序一次能加载N个, 现在想对 ......

vb控制GPRS MODEM拨号

我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机
可以啊
你先下个AT命令集合学习学习

我来顶

顶贴

LZ好厉害

不顶不行

老是排MP
引用
LZ好厉害
......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号