线管探测器:如何打开.dlt文件

.dlt文件，好像是从数据库导出的，好像是文本文件
可以用记事本指定打开，
要对该文件作字符串处理，读到TextBox中，怎样先把它存为
.txt的文本文件 :
另存为"a.txt"，注意双引号，并且选择所有文件，这属于基本操作，还和隐藏已知类型的文件的扩展名有点关系，其实那个双引号也可以不用---------选择所有文件。
没表达清楚。程序直接读.dlt文件，
改后缀名是程序完成的，完成后生成的.txt文件自动读入TextBox
把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile

Text1.Text=StrConv(LoadBytes,vbUniCode)

把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As Byte

SaveBytes=StrConv(Text1.Text,vbFromUniCode)

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

文件名称是什么都无所谓，可以是任何文件

Option Explicit

Private Sub Command1_Click()
'把文本文件内容读取TextBox:
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile = FreeFile
Open "d:\a.dlt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile

Text1.Text = StrConv(LoadBytes, vbUnicode)

'把TextBox内容写入文本文件:
Dim SaveBytes() As Byte

SaveBytes = StrConv(Text1.Text, vbFromUnicode)

TempFile = FreeFile
Open "d:\a.txt" For Binary As #TempFile
Put #TempFile, , SaveBytes
Close TempFile
Kill "d:\a.dlt"
End Sub

完成。

金山词霸