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
原文链接：https://www.f2er.com/vb/259695.html