怎样消除VB生成TXT档后面的空格

Question

用考勤机生成TXT档后,在最后面有一个空格或黑点,不知道怎样消除,请各位帮助

Answer 1

是空格的话用 Trim函数，它可消除字符串两边的空格。
是黑点的话用这个：
text1.text=left(text1.text,len(text1.text)-1)

Answer 2

在VB下没有空格,当时生成TXT档后,就有空格或黑点

Answer 3

Dim t_str As String'//建议使用变量，尽量少使用属性
t_str = Trim(Text1.Text)If Right(t_str, 1) = "." Then
   Text1.Text = Trim(Left(t_str, Len(t_str) - 1))
End If

Answer 4

我不是学VB的,我现在看的是别人的VB程序,在VB下怎样生成TXT档的,谢谢了

Answer 5

Dim t_str As String'//建议使用变量，尽量少使用属性
t_str = Trim(Text1.Text)If Right(t_str, 1) = "." Then
   Text1.Text = Trim(Left(t_str, Len(t_str) - 1))
else
   Text1.Text =t_str
End If

Answer 6

000(TAB)2003-04-16 12:28(TAB)0000003(TAB)0//要生成的格式
000   2003-04-16 12:35  0000003   0 //生成的格式，在最后一位0后有一个黑色的空格，但是当我粘到这上面，就不显示了，在本机上显示，为什么？

Answer 7

生成TXT文件，Open "c:\aaa.txt" For Binary Access Read As #1
如果文件不存在会自动创建文件。

Answer 8

最后的问题，
在VB中的TAB键和回车键用什么表示，对不起，问题很菜，我不是用VB的，手上也没有参考资料

Answer 9

VbCrLf=chr(13) & chr(10)  ->回车键vbTab=Chr(9)  ->TAB键

Answer 10

MSDN:
下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值：常数           等于                 描述 
vbCrLf       Chr(13) + Chr(10)     回车符与换行符结合 
vbCr         Chr(13)               回车符 
vbLf         Chr(10)               换行符 
vbNewLine    Chr(13) + Chr(10)     平台指定的新行字符；适用于当前平台 
vbNullChar   Chr(0)               值为 0 的字符 
vbNullString 值为 0 的字符串      用来调用外部过程；与长度为零的字符串 ("") 不同 
vbTab        Chr(9)               Tab 字。 
vbBack       Chr(8)               退格字符 
vbFormFeed   Chr(12)              在 Microsoft Windows 中没有作用 
vbVerticalTab Chr(11)             在 Microsoft Windows 中没有作用