博文
VBScript中的文件操作(2009-11-10 11:12:00)
摘要：
3。对文件的操作
对文件的操作主要包括：
创建文件 写入文件 读取文件 移动、复制和删除文件
1）创建文件
创建文件主要有三种方法：
CreateTextFile 方法，如：
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
CreateTextFile方法的具体用法是这样的：
object.CreateTextFile(filename[, overwrite[, unicode]])
其中object参数为FSO对象名称；filename参数设置文件的路径；overwrite为布尔值,true代表可以覆盖，false代表不可覆盖；最后一个可选参数指明是否以Unicode储存文件，true代表使用unicode，false代表使用ASCII方式，省略时默认为ASCII方式。
OpenTextFile 方法
Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting. FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)
OpenTextFile方法的具体使用方法：
object.OpenTextFile(filename[,......
VBScript 遍历表单元素, 简化数据操作代码(2009-11-10 10:49:00)
摘要：
作用及说明:
操作数据时, 大都离不开表单, 更新的时候, 要列出打出一堆 request.* 和数据字段.
采用遍历表单元素可省去一堆不必要的事情.
主要注意的是表单元素的命名法.
如果数据字段有良好的命令规则的话, 那好办, 可采用 instr()函数进行筛选
如果数据字段原先没有良好的命令规则, 那也好办, 还是用 instr() 函数进行筛选 ,这就需要在表单域中不需要操作的元素建立一个命名前缀, 再用 instr() 进行筛选
1. 两种方法遍历表单元素
2. 一个操作 XML 数据的例子
两种方法遍历表单元素:
1 遍历表单元素
dim x '列出表单中所有元素
for x=1 to request.Form.count
response.write request.form.key(x)&" --- "
response.write request.form(x)&"<br/>"
next
// request.form.key(x) 为 元素名
// request.form(x) 为 元素值
2 遍历表单元素
dim elem
for each elem in request.form
r......
TOM相册下载程序(2009-08-04 06:51:00)
摘要：昨天在百度的知道看到一个朋友向批量下载 TOM 的相册。我就用了一下午的时间，改造了 原来的 搜狐博客下载，上传过来大家分享。
网络的批量下载是很多朋友喜欢的，我很久没有再考虑这些，这次的程序很适合100张以内的照片下载，如果照片张数过多，在下载的时候耗费资源多，会显得有些迟钝。
使用方法：
1。找到喜欢的相册，打开他的第一张图片。
2。复制地址栏的地址。
3。粘贴到指定位置。
4。点击查看图片。
5。在一个新的页面里看多所有的图片了，在文件菜单 点击 另存为 —— —— 把网页全部存在指定位置，就获得了所有图片。
以下内容是 TOM相册下载器的 Form1 的源代码,没有过多的解释,朋友们自己读一下,有需要交流的请联系.
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "msinet.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 12030
ClientLeft = 60
ClientTop = 345
ClientWidth = 13455
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 12030
ScaleWidth = 13455
StartUpPosition = 3 '窗口缺省
Begin SHDocVwCtl.WebBrowser WebBrowser2
Height = 9615
Left = 0
TabIndex = 13
Top = 0
Width = 13095
ExtentX = 23098
ExtentY = 16960
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
Re......
uft-8格式和unicode编码的互相转换(2009-07-29 14:50:00)
摘要：
系统自带的记事本有读写UTF－8文本文件的功能，我想在自编的记事本中也加入这个功能，但在网上查找了一个钟头，竟然找不到用VB编写的代码。于是我在网上找了很多UTF－8的文章，还真的获益非浅，起码对UTF－8略知一二了。
当我做完最后一次试验时，长长地叹了一口气，美美地伸了一个懒腰，呵呵，真爽啊，一天的时间终于没有白费！这也许就是编程的乐趣吧，当看到程序按照自己的愿望运行时，你们的心情一定也与我是一样的，无比舒畅。
下面我先简单讲述一下UTF－8编码的有关知识，并且只讲与我编写的读写UTF－8文本代码有关的知识，详细的理论请各位自己找专业文章看看。
UTF-8 编码字符理论上可以最多到 6个字节长，但目前全世界的所有文字和符号种类加起来也只要编到 4个字节长就够了。UTF-8 是以 8位（即 1个字节）为单元对原始码进行编码（注意一点：这里所讲的原始码都是指Unicode码），并规定：多字节码（2个字节以上才称为多字节）以转换后第1个字节起头的连续“1”的数目（这些连续“1”称为标记位），表示转换成几个字节：“110”连续两个 “1”，表示转换结果为2个字节，“1110”表示3个字节，而“11110” 则表示4个字节……跟随在标记位之后的“0”，其作用是分隔标记位和字符码位。第2～第4个字节的起头两个位固定设置为“10”，也作为标记，剩下的6个位才做为字符码位使用。这样，2字节UTF-8码剩下11个字符码位，可用以转换0080～07FF的原始字符码，3字节剩下16个字符码位，可用以转换0800～FFFF的原始字符码，由此类推。
编码方式的模板如下：
原始码（16进制） | UTF－8编码（二进制）
0000 - 007F | 0xxxxxxx
0080 - 07FF ......
搜狐博客下载器(2009-04-20 13:34:00)
摘要：
http://www.ecn999.com/sohu_blog_bak.rar
上面的连接是 搜狐博客下载器 的下载地址。
欢迎使用并提出宝贵意见。
......
VB6中一个非常好用的读写INI文件的模块(2008-09-21 09:03:00)
摘要： 网上读写Ini文件的例子只有几篇相同的文章，而并不好用，奇怪的是各网站都是同样的例程，高手也就罢了，三下五除二就搞定，初学者会被搞得一头雾水，看着一个好好的模块就是不能用。
所以我整理了一下（最早是在腾讯答一个贴子时写的），这个也就是修改了一下，不是我自已的发明(至于这个代码起先不知是谁写的),不过非常的好用
新建模块（建议不使用注册表） 命名为rwini
'ini文件在有回车换行符会出错，经过测试，汉字要小于86字节，英言文要小于143字节才能返回列表框。（这是我以前的code，是记录列表框内容的）
Option Explicit
Public iniFileName As String
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As ......
用VB操作INI文件(2008-09-21 08:51:00)
摘要：一、实现方法如下：
1、新建一个工程/窗体(窗体取名为ini.frm)，在此窗体中添加三个命令按钮控件，分别为command1、command2、command3
command1.Caption= "write"
command2.Caption= "read"
command3.Caption= "End"
2、代码部分：
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal nDefault As Long, _
ByVal lpFileName As String) As Long
Privat......
INI文件编程,WINAPI函数WritePrivateProfileStrin(2008-09-20 10:26:00)
摘要： 在我们写的程序当中,总有一些配置信息需要保存下来,以便完成程序的功能,最简单的办法就是将这些信息写入INI文件中,程序初始化时再读入.具体应用如下:
一.将信息写入.INI文件中.
1.所用的WINAPI函数原型为:
BOOL WritePrivateProfileString(
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
LPCTSTR lpString,
LPCTSTR lpFileName
);
其中各参数的意义:
LPCTSTR lpAppName 是INI文件中的一个字段名.
LPCTSTR lpKeyName 是lpAppName下的一个键名,通俗讲就是变量名.
LPCTSTR lpString 是键值,也就是变量的值,不过必须为LPCTSTR型或CString型的.
LPCTSTR lpFileName 是完整的INI文件名.
2.具体使用方法:设现有一名学生,需把他的姓名和年龄写入 c:\stud\student.ini 文件中.
CString strName,strTemp;
int nAge;
strName="张三";
nAge=12;
::WritePrivateProfileString("StudentInfo","Name",strName,"c:\\stud\\student.ini");
此时c:\stud\student.ini文件中的内容如下:
[StudentInfo]
......