送分：小问题"回车换行符"

[goincsdn]

几个字符串变量
相互连接付值给另一个字符串变量
但我想每接一个字符串加一个回车换行符
就像这个问题本身一样
谢谢！！

[latahu]

"a"+"\n"+"b"

这样不知道可不可以

[ifengfeng]

"aaaa\n"

[cyp503]

string string3="string1"+"\n"+"string2";

[付长松_华为云MVP]

Function EText(ByVal strText As String)
Dim i As Integer
Dim strTemp As String
For i = 1 To Len(strText)
If Asc(Mid(strText, i, 1)) = 32 Then
strTemp = strTemp + " "
ElseIf Asc(Mid(strText, i, 1)) = 13 Then
strTemp = strTemp + "<br>"
Else
strTemp = strTemp + Mid(strText, i, 1)

End If
Next
EText = strTemp
End Function
Function DText(ByVal strText As String)
Dim strTmp As String
Dim Skip As Integer = 0
Dim i As Integer
For i = 1 To Len(strText)
If Mid(strText, i, 6) = " " Then
Skip = 6
strTmp = strTmp + " "
ElseIf Mid(strText, i, 4) = "<br>" Then
Skip = 4
strTmp = strTmp + Chr(13)
Else
If Skip = 0 Then strTmp = strTmp + Mid(strText, i, 1)
End If
If Skip > 0 Then Skip -= 1
Next
DText = strTmp
End Function

[standy]

不知道你的目的是什麼

如果只是為了顯示在WEB頁上換行,為甚麼不

string a,b;
a="testa";
b="testb";
string c=string.Empty
c=c+a+"<b>";
c=c+b+"<b>";
//..........

[syl13396]

new_string = string1 + "\r\n" + string2
\r --> 回车
\n --> 换行

[cegcegceg]

str1+chr(10)+chr(13)+str2

[goincsdn]

感谢：standy(天下无双) 和众各位

[fq_ln]

不同的目的有不同的换行方法。
按照以上大家说的就可以啦。
如果你在网页中使用，本人不推荐用<br>这种东西，如果你的内容是由别人填写的，会有很大的安全漏洞，他也可以在这里面写教本！