VB 判断是否文本文件
代码如下:
Option Explicit
Public Function IsTextFile(Bytes() As Byte) As Boolean
Dim i As Long, AscN As Long, Length As Long
Length = UBound(Bytes) + 1
If Length < 3 Then
IsTextFile = IsGB(Bytes, Length)
Exit Function
ElseIf Bytes(0) = &HEF And Bytes(1) = &HBB And Bytes(2) = &HBF Then
IsTextFile = True
Exit Function
End If
Do While i <= Length - 1
If Bytes(i) < 128 Then
i = i + 1
AscN = AscN + 1
ElseIf (Bytes(i) And &HE0) = &HC0 And (Bytes(i + 1) And &HC0) = &H80 Then
i = i + 2
ElseIf i + 2 < Length Then
If (Bytes(i) And &HF0) = &HE0 And (Bytes(i + 1) And &HC0) = &H80 And (Bytes(i + 2) And &HC0) = &H80 Then
i = i + 3
Else
IsTextFile = IsGB(Bytes, Length)
Exit Function
End If
Else
IsTextFile = IsGB(Bytes, Length)
Exit Function
End If
Loop
If AscN = Length Then
IsTextFile = IsGB(Bytes, Length)
Else
IsTextFile = True
End If
End Function
Private Function IsGB(Bytes() As Byte, FileSize As Long) As Boolean
Dim ObjStream As Object, ret As String
Set ObjStream = CreateObject("ADODB.Stream")
With ObjStream
.Type = 1
.Mode = 3
.open
.Write Bytes
.Position = 0
.Type = 2
.Charset = "GB2312"
ret = .ReadText
.Close
End With
If LenB(StrConv(ret, vbFromUnicode)) = FileSize Then
IsGB = True
Else
IsGB = False
End If
End Function
摘自:网络整理
相关文章参考:
※VB输入文本文件实现右对齐
※VB计算文本文件的行数
※VB打开文本文件各种方法
※vb:读写文本文件
※vb UTF文本文件访问
※简述UTF-8编码原理及其文本文件的读写技术【转】
※VB 读写TXT文本文件函数
※VB 判断是否文本文件
※VB 按指定编码格式写入文本文件
★VB部分相关文章推荐:★
☆VB 读写TXT文本文件函数
☆VB 提取TextBox 文本框中指定一行字符串
☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转
☆VB SendMessage向其他程序窗口发送字符串消息实例
☆VB中Null, Empty, Nothing, and vbNullString的区别
☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)
☆[VB]SaveSetting 语句 和 DeleteSetting 语句
☆VB APP对象属性一览表 + 灵活使用VB的APP对象
☆[vb]SendMessageA函数
☆使用VB绘制抛物线动画曲线
☆关于vb中的容器
☆[vb]利用WScript.Shell对象隐藏cmd命令行运行
☆浅析VB For Each.Next语句
☆VB中窗体模块、标准模块、类模块的区别
☆引用 VB类模块
☆VB中什么是类,类模块有什么作用
☆VB SendKeys 语句
☆VB 全局热键
☆用VB轻松调用其他程序
☆vb读取txt文件到textbox
☆如何去优化你的VB程序3
☆如何去优化你的VB程序2
☆如何去优化你的VB程序1
☆[VB]在状态栏中显示帮助信息
☆[VB]把屏幕保存为图像
☆Mp3Play.ocx控件让音乐之声响起来
更多精彩>>>
VB 判断是否文本文件相关推荐
- VB 读写TXT文本文件函数
以下两个函数分别读取TXT文本文件与写入文件 Private Function GetTXT(Path As String) '读取文本 Open Path For Input As #1 ...
- VB判断指定名字的进程是否存在函数
'============================================================= '函数名:CheckApplicationIsRun '作 用:判断进程是 ...
- VB判断文件及目录的存在性
方法一: Function Exists(ByVal FilePath As String) As Boolean If Dir(FilePath, 16) <> "&q ...
- VB判断指定的WORD文档是否被打开
判断指定的WORD文档是否被打开的函数代码如下 Function WordDocIsOpen(ByVal strDocName As String) As Boolean Dim objWordApp ...
- VB 判断IP能否ping通
窗体代码: '测试 Private Sub Form_Load() If PingIP("122.22.255.255") Then MsgBox &quo ...
- 判断一个文本文件的编码格式
判断一个文本文件的编码格式 不同编码的文本,是根据文本的前两个字节来定义其编码格式的.定义如下: ANSI: 无格式定义: Unicode: 前两个字节为FFFE: Unicode big e ...
- VB 判断图片文件的类型格式
'VB 通过二进制方式来判断图片的格式,下面只对 JPG .GIF.PNG.BMP.ICO 几个常用的图片格式做了判断. Public Function GetImageType(ByteArray( ...
- VB判断窗体是否加载函数
程序代码: '============判断窗体是否已经加载 Private Function FormIsLoad(formCaption As String) As Boolean '真为加载, ...
- 【转】如何判断一个文本文件内容的编码格式 UTF-8 ? ANSI(GBK)
转自:http://blog.csdn.net/jiangqin115/article/details/42684017 UTF-8编码的文本文档,有的带有BOM (Byte Order Mark, ...
最新文章
- 牛客网刷题知识汇总3
- No module named ‘tensorflow.contrib‘
- SAP WM 采购订单收货后LT06报错-Allowed storage unit types not defined for storage type Z03-
- Linux 系统内存分析
- 写接口文档及生成mock数据
- 28335接两个spi设备_SPI浅析
- 具有Java Kickstart的MongoDB
- java部分_java基础部分
- 毛发及眼球的渲染技术
- CodeForce 589J Cleaner Robot
- Mac google浏览器可以百度 无法登录账号的解决方案
- bochs镜像java模拟器_bochs镜像下载
- 塑胶产品内滑块设计要点,以及注意哪些事项?
- CF - 472C. Design Tutorial: Make It Nondeterministic 贪心
- 【pygame】Python_game-master打飞机demo,并打包exe
- windows中动态磁盘卷种类介绍
- 如何使用 Swift 开发简单的条形码检测器?
- Windows bat脚本获取administrator权限
- 在线分析图片上的字体
- OpenCV第六篇:阈值函数
热门文章
- 年薪百万架构师首次分享 Java 程序员黄金 5 年进阶心得!
- Linus Torvalds:未来 25 年,Linux 风采依旧!
- Redis 真得那么好用吗?
- 真相:Java 开发者钟爱 Kotlin 的五个原因
- 腾讯网易已称王,今日头条有什么勇气来做游戏?
- 金立手机用60亿“砸死”了自己
- 阿里腾讯的正面交锋:支付宝被薅羊毛 137 万依然乐此不疲
- linux spoon.sh闪退,kettle使用spoon.sh打开报错问题解决
- ts定义数组类型_TS的对象类型、数组类型、函数类型
- socket read time out解决方法_深入浅出讲解:php的socket通信