如何去掉字符串的头尾空格与回车
如何去掉字符串的头尾空格与回车呢,中间的不去掉。
用这句可以去掉,但连字符串中间的回车也去掉了。
Trim(Replace(str, Chr(13) & Chr(10), ""))
[解决办法]
您不是说要去掉字符串的回车么?
难道仅仅去掉头尾回车?
[解决办法]
Option ExplicitPrivate Sub Command1_Click() Dim strP As String ' Dim intP As Integer Dim strEnter() As String '以回车符为分割符的数组 Dim strSpace() As String '以空格符为分割符的数组 strP = "abc def" & Chr(13) & "adre dsd" & Chr(13) & "adedd dfsd" '待处理的字符串 Debug.Print "处理前:" Debug.Print strP strEnter = Split(strP, Chr(13)) '以回车符为分割符分割字符串 '去掉回车符后,重组字符串 strP = "" For intP = LBound(strEnter) To UBound(strEnter) strP = strP & strEnter(intP) Next intP strSpace = Split(strP, " ") '去掉空格符后,重组字符串 strP = "" For intP = LBound(strSpace) To UBound(strSpace) strP = strP & strSpace(intP) Next intP Debug.Print "处理后:" Debug.Print strPEnd Sub
[解决办法]
trim就可以了啊。
[解决办法]
用Trim就行了啊,可能你那里面还有制表符什么的
[解决办法]
trim 去首尾空格。不去回车。
用replace 函数可做字符替换