vb.net 逐行读取RichTextBox内容

发布时间：2020-12-16 22:24:22 所属栏目：大数据来源：网络整理

导读：Function Fn_ConvertVBCode() As StringBuilder Dim tmp As New StringBuilder For i As Integer = 0 To RichTextBox1.Lines.Count - 1 Dim txt As String = Me.RichTextBox1.Lines(i) If txt.Contains("""") Then txt = txt.Replace("""","""""") End If tm

Function Fn_ConvertVBCode() As StringBuilder
Dim tmp As New StringBuilder

For i As Integer = 0 To RichTextBox1.Lines.Count - 1
Dim txt As String = Me.RichTextBox1.Lines(i)
If txt.Contains("""") Then
txt = txt.Replace("""","""""")
End If
tmp.Append("SwFromFileStream.Write(""" & txt & """ + vbCrLf)" + vbCrLf)
Next

Return tmp End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!