[求助]如何取文本框最后一行内容?

yqi

文本框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

拆分字符串

kevindeng

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)