VB6.0可以二进制方式全部读取文件,然后将每字节用Hex函数循环转换为16进制字符串形式,拼接成字符串显示与富文本框。
Hex 函数,返回代表十六进制数值的 String。
Get 语句,将一个已打开的磁盘文件读入一个变量之中。
实现代码:
Private Sub Command1_Click()Dim strWj As String
Dim aryContent() As Byte
Dim i As Long
Dim j As Long
CommonDialog1.CancelError = True ' 设置“CancelError”为 物闹True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置标志
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
CommonDialog1.FilterIndex = 2 '厅简 指定缺省的过滤器
CommonDialog1.ShowOpen 扮蚂裤 ' 显示“打开”对话框
' 显示选定文件的名字
'MsgBox CommonDialog1.FileName
Open CommonDialog1.FileName For Binary As #1
ReDim aryContent(LOF(1) - 1)
Get #1, , aryContent
Close #1
For i = 0 To UBound(aryContent)
strWj = strWj & Right("00" & Hex(aryContent(i)), 2) & " "
DoEvents
Next
RichTextBox1 = strWj
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
效果:
cad2008解压出来后就有两个文件夹:弯蔽1)AutoCAD.2008cdl 2)AutoCAD.2008cd2。首先就是要将:AutoCAD.2008cd2里面的所有文件复制(是埋改州不是复制歼皮AutoCAD.2008cd2,而是是里面的所有文件),在AutoCAD.2008cd2里面的文件Application Data\Autodestk\Textures\Concrete.Cast-In-Place.Exposed Aggregate.Medium.jpg.就会在AutoCAD.2008cd1.
问题就会解决了!
VB可以Get 语句一次全部读入任何文件字节流。Get 语句,将一个已打开的磁盘文件读入一个变量之中数明。
以下是读入文本文件的代码,显示于RichTextBox控件。
Private Sub Command1_Click()
Dim strWj As String
Dim aryContent() As Byte
CommonDialog1.CancelError = True ' 设置“CancelError”为 True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly' 设置标志
' 设置过滤器颤毕档
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" &"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
CommonDialog1.FilterIndex = 2'茄乱 指定缺省的过滤器
CommonDialog1.ShowOpen' 显示“打开”对话框
' 显示选定文件的名字
'MsgBox CommonDialog1.FileName
Open CommonDialog1.FileName For Binary As #1
ReDim aryContent(LOF(1) - 1)
Get #1, , aryContent
Close #1
strWj = StrConv(aryContent, vbUnicode)
RichTextBox1 = strWj
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)