替换文本文件中的回车符,打开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图就显现出来了.

我网友高兴,我也高兴.