Office中国论坛/Access中国论坛

标题: [求助]如何取文本框最后一行内容? [打印本页]

作者: yqi 时间: 2006-6-14 01:37
标题: [求助]如何取文本框最后一行内容?
文本框1中有如何内容：

+ 0.008
+ 0.007
+ 0.002
+ 0.004
+ 0.007
+ 0.010
+ 0.006
+ 0.011
+ 0.020
+ 0.018
+ 0.014
+ 0.013
+ 0.007
+ 0.013
- 0.025

请问如何只读取最后一行内容？在文本框2中显示。

作者: fan0217 时间: 2006-6-14 03:54
拆分字符串

作者: kevindeng 时间: 2006-6-14 08:14
Dim i As Integer
Dim kAscii As Integer
Dim rightLen As Integer

For i = Len(Text1) To 1 Step -1
rightLen = rightLen + 1
If kAscii = 10 And Asc(Mid(Text1, i, 1)) = 13 Then
rightLen = rightLen - 2
Exit For
End If
kAscii = Asc(Mid(Text1, i, 1))
Next

Text2 = Right(Text1, rightLen)

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)