[TestComplete 系列]VB检查编码类型
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) 前两个字节为FFFE
Log.Message("file is ctUnicode type")
TextCodingType = 21
case 239187: '*UTF8 前两字节为EFBB
Log.Message("file is ctUTF8 type")
TextCodingType = 22
case else
Log.Message("file will open via ANSI type")
TextCodingType = 20
end select
End Sub
相关文档：
今天在调试的过程中发现 在vb中拼SQL的时候发现"()" 作用很大
eg: table: T_TEST col : T_KB int ,S_CD int ,Z_SU int
dim gcstrT_1 ,gcstrT_3 as integer
gcstrT_1 = 1
gcstrT_3 = 3
strWhere = strWhere & "……"
strWhere = strWhere & "AND ((T_K ......
GetAllSettings（appname，section）
GetSetting（appname，section，key[，default]） ：读取注册表信息
SaveSetting appname，section，key，setting：向注册表中写入一个注册信息
deletesetting appname，section，key，setting：删除注册表信息
·appname：应用程序名，字符串类型，用户指定
·sec ......
SQLDMO在VB中的应用
http://blog.csdn.net/cncco/archive/2010/03/09/5362111.aspx
SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象）封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。 SQL-DMO 是 SQL Server 20 ......
VB无所不能之七：VB的多线程（1）
作者：钟声
题外话：
最近，写了几篇《VB无所不能》系列，本系列文章的创作初衷就是要去颠覆众多程序员对于“非面向对象”语言“VB”的成见！
当然，我也早有预期，此言一出必然招致不明真相的群众的“围攻”，然而，我还是要� ......
