首页 /编程语言和算法/VB6/ASP
 VB6 代码管家-删除左右无用字符
2024年12月8日 21:47
Private Sub Command1_Click()
    Text1.Text = 删除左右无用字符(Text1.Text)
End Sub

Public Function 删除左右无用字符(ByVal 文本 As String) As String '包括换行符和Tab空格符
    Do While Left(文本, 1) = Chr(13) Or Left(文本, 1) = Chr(10) Or Left(文本, 1) = Chr(32) Or Left(文本, 1) = Chr(9)
        文本 = Right(文本, Len(文本) - 1)
    Loop
    Do While Right(文本, 1) = Chr(13) Or Right(文本, 1) = Chr(10) Or Left(文本, 1) = Chr(32) Or Left(文本, 1) = Chr(9)
        文本 = Left(文本, Len(文本) - 1)
    Loop
    删除左右无用字符 = 文本
End Function


 
全部回复(0)
首页 | 电脑版 |