易截截图软件、单文件、免安装、纯绿色、仅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楼的方法就行

谢谢````


相关问答:

vb的成功之路 - 扩充话题 / 共享软件(走向海外)

在vb这编程里似乎有很多的东西是相联系的,为什么有些人对vb的编程摸不到头脑啊!并且有些事很容易的,但是却把它们的代码变成复杂,也去想一些不能实现的东西啊!




没分了,楼主多来点分!

来接点分

......

vb修改DTPicker1日期问题

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 ......

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

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

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

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

vb插入数据库重复值问题

在vb中怎么判断,插入到数据库中的值是重复的,本人才刚接触VB语言,甚是有好多地方还不懂,还请各位大侠们给出代码,谢谢了呀!!!
插入之前select一下阿。
或者写一个组合SQL插入语句,例如
IF not Exist(
& ......

vb控制GPRS MODEM拨号

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

我来顶

顶贴

LZ好厉害

不顶不行

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