新手问题——文本另存为的实现

Btnsaveas_Click事件：
        Me.SaveFileDialog1.ShowDialog()
        FileOpen(1, SaveFileDialog1.FileName, OpenMode.Append)
        '这里开始搞不清楚了，为了能在另存为的时候实现回车换行表示，
        ‘直接保存为TXT格式的时候回车号直接成一小黑块了，
        '所以想用lineput分别截取每行的字符串分别printline
        ’求助
        Dim a As String
        Dim length As Integer
        '字符串a装入文本
        a = Me.RichTextBox1.Text
        length = Len(a) - 1
        Dim hang, i, j As Integer
        Dim b() As Integer
        hang = 1 '有几个换行符就表示有几行
        For i = 1 To length
            If Mid(a, i, 1) = Chr(10) Then
                hang += 1
            End If
        Next
        FileClose(1) --------------------编程问答-------------------- 你想什么效果？
--------------------编程问答-------------------- 目的就是要在把一个文本文档另存为的时候在目标文件不会自动将回车符号转换成 ASCII码_一个小黑块
而实现回车+换行 --------------------编程问答-------------------- haoxia01：以下代码看看能不能帮到你
Private Const ENTER As String = vbCrLf
Dim str As String = ""（该变量为文件里的字符串）
str.Replace(ENTER, "")（把enter替换成空）

--------------------编程问答-------------------- writeline就可以了
一行一行写，回车自动会添加的

补充：.NET技术 ,  VB.NET