dim s as string s = " 12345" & vbCrLf & "11112345" & "kkjfkdlaj" s=replace(s,vbcrlf,"")
Private Sub Command1_Click() Dim str As String str = " 12345" & vbCrLf & "11112345" & "kkjfkdlaj" MsgBox Replace(str, vbCrLf, "")End Sub
另外,不建议用str作为变量名
Private Sub Command1_Click() Dim ls_Content() As String Dim str As String Dim LogCount As Long Dim i As Longstr = " 12345" & vbCrLf & "11112345" & "kkjfkdlaj"ls_Content = Split(str, vbCrLf) LogCount = UBound(ls_Content, 1)For i = 0 To LogCount Debug.Print ls_Content(i)'这里就分出来一行行了 Next i End Sub
s = " 12345" & vbCrLf & "11112345" & "kkjfkdlaj"
s=replace(s,vbcrlf,"")
Dim str As String
str = " 12345" & vbCrLf & "11112345" & "kkjfkdlaj"
MsgBox Replace(str, vbCrLf, "")End Sub
Dim ls_Content() As String
Dim str As String
Dim LogCount As Long
Dim i As Longstr = " 12345" & vbCrLf & "11112345" & "kkjfkdlaj"ls_Content = Split(str, vbCrLf)
LogCount = UBound(ls_Content, 1)For i = 0 To LogCount
Debug.Print ls_Content(i)'这里就分出来一行行了
Next i
End Sub
用第三个表达式替换第一个字符串表达式中出现的所有第二个给定字符串表达式。语法
REPLACE ( 'string_expression1' , 'string_expression2' , 'string_expression3' )示例
下例用 xxx 替换 abcdefghi 中的字符串 cde。SELECT REPLACE('abcdefghicde','cde','xxx')
replace最简单
Replace(str, vbCrLf, "")