TextBox多行文本的问题

[yanransoft]

在 Web Form 中假如TextBox的TextMode属性设为MultiLine,如何获得TextBox中输入文本的每一行？

[cyp503]

试试获取文本值中有没有换行符

[greystar]

msdn里有这样的例子，用的是selection这样的对象。不过具体如何做我也忘了。我只是看过一次，也没有具体的研究。它可以自动每次取一行。

[老赵说高考]

不会，up

[gOODiDEA]

try

string m_Text = TextBox1.Text;
string [] arr_Text = m_Text.Split( Convert.ToString( ( char ) 13 ) );
for ( int i = 0; i < arr_Text.Length - 1; i++ )
{
Response.Write( arr_Text[i] );
}

[付长松_华为云MVP]

看看这个，是将换行符与<BR>互相转换的，可能对你有用！

Function EText(ByVal strText As String)
Dim i As Integer
Dim strTemp As String
Dim Found As Boolean = False
For i = 1 To Len(strText)
If Asc(Mid(strText, i, 1)) = 32 Then
strTemp = strTemp + " "
ElseIf Asc(Mid(strText, i, 1)) = 13 Then
ElseIf Asc(Mid(strText, i, 1)) = 10 Then
strTemp = strTemp + "<br>"
ElseIf Asc(Mid(strText, i, 1)) = 39 Then
If Not Found Then
strTemp = strTemp + "‘"
Found = True
Else
strTemp = strTemp + "’"
Found = False
End If
ElseIf Asc(Mid(strText, i, 1)) = 34 Then
strTemp = strTemp + """"
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