替换文本文件中的回车符,打开DXF文件

今天一网友突然叫我帮他打开一DXF文件,用CAD打开.他告诉我他用CAD读取时,发现提示文件可能损坏.
所以就丢给我看了.我先是用记事本打开DXF文件,发现里面根本没有"行"的痕迹.看起来只有一行的文本.
我想也许我把那DXF文件搞行标准的DXF格式就可以用CAD读出来了.

说来也怪,我以为这是某人(或某公司)写DXF文件的结果(是不是这样,俺也不清楚),所以我就想在GOOGLE中搜索一下此种格式的公司名.我COPY了DXF文件中的前面几个字:999Version 1.0, XXX Technology.
巧就巧在这里,我发现只有999显示在GOOGLE的输入栏中. 所以我确定在999与VERSION中有一特殊符号. 所以我就决定读出那特定符号.方法是得用FileStream一个字节一个字节地读.方法如下:
Dim afile As FileStream
Dim ibyte(0) As Byte
Dim i As Byte
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        afile = New FileStream("c:\SAMPLE.txt", FileMode.Open)
 End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
           afile.Seek(i, SeekOrigin.Begin)
           afile.Read(ibyte, 0, 1)
           Me.RichTextBox1.Text &=ibyte(0) & vbcrlf
           i += 1
      Catch ex As Exception
      Finally
        Me.RichTextBox1.Refresh()
      End Try
    End Sub
我不断地点击Button1,RichTextBox1中显示的是57,57,57,13,86
我查一下ASCALL表,发现57是数字9,86是字符"V",那么13就是"999"与"V"之间的"隐藏"符号,在ASCALL表中13就是回车符(CR),只有回车没有换行(LF)才会没有显示"行"的痕迹. 所以下一步就是用回车换行替换回车,但我在文本文件中好像无法完成此种替换.
唉... 那个催命鬼网友,催个不停呀!
自己写一个程序来完成替换工作吧!
于是就有了下面的一段程序:
Dim afile As FileStream
    Dim astream As StreamReader
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        afile = New FileStream("c:\SAMPLE.txt", FileMode.Open)
        astream = New StreamReader(afile)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim s As String
        Try
            s = astream.ReadToEnd()
        Catch ex As Exception
        Finally
            astream.Close()
        End Try
        s.Replace(vbCr, vbCrLf)
        Me.RichTextBox1.Text = s
    End Sub

把程序界面中的RichTextBox1中的所有文本COPY到原先的DXF文本文件,并替换它.再保存.
用CAD打开,一副CAD图就显现出来了.
我网友高兴,我也高兴.

转载于:https://www.cnblogs.com/msnadair/archive/2008/05/05/1183755.html