vb.net 逐行读取RichTextBox内容

来源:互联网 发布:剑灵人女完美身材数据 编辑:程序博客网 时间:2024/03/28 17:55

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

原创粉丝点击