VB去掉最后的空行

来源：百度知道 编辑：UC知道 时间：2024/07/03 08:53:42
a3 = Split(sumx, vbCrLf)
If Right(sumx, 1) = Chr(10) Then n = UBound(a3) - 1 Else n = UBound(a3)
For I = LBound(a3) To n
xx = xx & yzhengaa(Val(a3(I))) & vbCrLf
Next I
这段代码在最后的时候它有一个空行,怎样才能去掉最后的空行呢?

a3 = Split(sumx, vbCrLf)
If Right(sumx, 1) = Chr(10) Then n = UBound(a3) - 1 Else n = UBound(a3)
For I = LBound(a3) To n
If I = n Then
xx = xx & yzhengaa(Val(a3(I)))
Else
xx = xx & yzhengaa(Val(a3(I))) & vbCrLf
End If
Next I

a3 = Split(sumx, vbCrLf)
If Right(sumx, 1) = Chr(10) Then n = UBound(a3) - 1 Else n = UBound(a3)
For I = LBound(a3) To n
xx = xx & yzhengaa(Val(a3(I)))
Next I

VB函数：
Ltrim去左边的空格。
Rtrim去右边的空格。
Trim去两端的空格。
if Trim(string)="" then '判断string是否为空字符串