index1.txt

VB技巧问答10000例 VB技巧问答10000例

1,filenumber是不是可以是一个变量
我想知道在input#filenumber,varlist语句中的filenumber是不是可以是一个变量。我是说如果现在有文件a.txt,b.txt,c.txt……等等。我通过判断语句得出要用其中之一,例如要用b.txt,我就写filenumber=b.txt，然后input#读的就是b.txt中的内容,就是说filenumber不是文件名而它的值是文件名。能不能做到? 
<END>    
2,如何将一个TXT文件转化成Access格式数据库中的表
如何将一个TXT格式的文件转化成ACCESS格式数据库中的表? 
<END>
3,VB6中解压缩Cab文件的源代码是什么
请问在VB6中解压缩Cab文件的源代码是什么，我希望用它来自己制作安装程序。
<END>
4,如何打开一个已经建立关联的文件
我现在使用中文版vb6作毕业设计，遇到这样一个问题：怎么实现单击一个“command”时，直接打开某个路径下的一个word文档（如c:\word\mywor.doc）？
<END>
5,在一个VC程序里用文档序列化写出的二进制文件，用VB怎么读出
问题：请问：在一个VC程序里用文档序列化写出的二进制文件，用VB怎么读出，特别是怎样读出其中的字符串，因为VB读文件里的字符串都必须要知道长度，而文档序列化写的字符串是没有标注长度的，那VC用文档序列化读此文件时又是怎样知道这个串的长度的呢。比如它能正确区分出这个串的长度为0，或者为23，或者是其它长度。 
    （请不要告诉我字符串的末尾写了'\0',因为我用十六进制编辑器看了，某些字符串的末尾确实是'\0',但还有些字符串的末尾却是0x04或0x03或0x0A,而我的VC程序确实没有写出些东西，并且VC的文档序列化读文件时也不用读这些东西却能够非常正确的读出文件里的每一个字符串） 
<END>    
6,如何在A文件中找到行首字为0的行，并复制到B文件中相同的行
请问，在VB中如何在A文件中找到行首字为0的行，并把该行复制到B文件中相同的行中去（如A文件中第3行首字0，就把该行复制到B文件的第3行中去）。反复直到A文件找完。 
<END>    
7,vb6提示错误输入超出文件尾
我在VB 5中使用Input(number, [#]filenumber)时，用LOF([#]filenumber)来表示文件长度；但执行中VB 5提示错误："输出超出文件尾"。用FileLen(filepath)得出文件长度也一样。这是怎么回事？ 
    Private Sub Command3_Click() 
     Dim TextLine As String 
     Dim filenum1 As Integer,filenum2 As Integer 
     Dim ds As Double 
     Dim de As Double 
     
     filenum1 = FreeFile() 
     Open "d:\test1.txt" For Input As filenum1 ' 打开文件。 
     
     Dim l As Integer 
     l = FileLen("d:\test1.txt") ' 用FileLen查询文件长度 
     
     filenum2 = FreeFile() ' 取下一个空文件号 
     Open "d:\output.txt" For Output As filenum2 
     
     ds = Timer 
     TextLine = Input(LOF(filenum1), filenum1) ' 出错 
     Write #filenum2, TextLine 
     
    '--------------------------以下代码可正常使用 
     
     Do While Not EOF(filenum1) ' 循环至文件尾。 
     Line Input #filenum1, TextLine ' 读入一行数据并将其赋予某变量。 
     'Debug.Print TextLine ' 在调试窗口中显示数据。 
     Print #filenum2, TextLine ' 写入新建的文件 
     Loop 
    '---------------------------------- 
     de = Timer 
     Debug.Print de - ds 
     
    Close filenum1 
    Close filenum2 ' 关闭文件。 
    End Sub 
<END>
8,用VB开发软件怎样生成自己喜好的文件扩展名
请问有许多软件，在它们的安装目录里都有好多不同的文件（带有不同的文件扩展名）。那些文件都有独特的文件扩展名， 请问这些文件是怎样生成的？ 如果用VB开发一个软件，该怎样生成自己喜好的文件扩展名？ 
<END>
9,通过局域网copy东西，但不知网络路径怎么写
我现在做一个程序，想通过局域网copy东西，我用的是VB,想法是想用FileSystemObject对象的CopyFile方法，但不知网络路径怎么写，请各位大侠赐教。 
<END>
10,把文件读完后再写入另一个文件，为什么就会出错
我用vb6编了一个读取文件的程序,用二进制方式读取,可是当我把文件读完后再写入另一个文件,为什么就会出错(出错表现在,如果是EXE文件则说此文件不是有效的Win32程序:如果是图象文件则看见什么了没有,本来文件是有内容的),请问是怎么一回事 
    程序如下: 
    情况一(正常): 
     Dim a() As Byte 
    Open "c:\windows\desktop\flash.exe" For Binary As #2 
    Open "d:\flash.exe" For Binary As #1 
    Dim i As Long 
    i = 0 
    Do While Not EOF(1) 
    i = i + 1 
    ReDim a(1 To i) 
    Get #1, , a(i) 
    loop 
    Close 1 
    Close 2 
     
     
    情况二(以上错误) 
    Dim a() As Byte 
    Open "c:\windows\desktop\flash.exe" For Binary As #2 
    Open "d:\flash.exe" For Binary As #1 
    Dim i As Long 
    i = 0 
    Do While Not EOF(1) 
    i = i + 1 
    ReDim a(1 To i) 
    Get #1, , a(i) 
    Loop 
    For s = 1 To i 
    Put #2, , a(s) 
    Next 
    Close 1 
    Close 2 
<END>
11,如何获得TEMP目录
问题: 各位高手，在下有一段代码请教详解 
     Dim RetCode As Long 
     Dim TempDir As String 
     Dim TempFileName As String 
     
     TempDir = Space(256) '? 
     RetCode = GetTempPath(Len(TempDir), TempDir) '? 
     TempFileName = Left(Trim$(TempDir), Len(Trim$(TempDir)) - 1) + "\ABC.ZIP" '? 
<END>    
12,怎样获得一个短文件名的长文件名
我 在 注 册 表 HKEY_CLASSES_ROOT\Directory\Shell中 添 加 MyApp键 ,再 添 加 MyApp\Command键 ， command的 键 值 为 C:\Myapp\Myapp.exe /add %1. 以 便 在 文 件 夹 中 弹 出 自 定 义 菜 单 。 但 调 试 时 发 现 这 样 获 得 的 命 令 行 参 数 是 短 文 件 名 。 我 尝 试 把 command的 键 值 改 为 "c:\Myapp\Myapp.exe" /add "%1",调 试 时 发 现 参 数 仍 然 是 短 文 件 名 。 请 问 我 怎 样 做 才 能 获 得 长 文 件 名 ？ 
<END>     
13,如何将文本文件重定位在开始位置
如 何 将 文 本 文 件 重 定 位 在 开 始 位 置 ? 
<END>    
14,如何判断该文件格式与我保存过的文件格式相同
问 题 : 我 将 数 据 保 存 为 一 个 随 机 文 件 ， 当 我 打 开 这 个 文 件 时 ， 如 何 判 断 该 文 件 格 式 与 我 保 存 过 的 文 件 格 式 相 同 ， 然 后 做 出 不 同 的 处 理 ？
<END>
15,如何将access文件内容保存到文本文件中
遇 到 的 问 题 ： 
    我 要 将 access文 件 内 容 保 存 到 文 本 文 件 中 ， 但 要 求 格 式 十 分 严 格 为 ： 
    aa |bb | cc | ss 
    s22 | ssd| s | ss 
    每 个 字 段 之 间 的 | 在 同 一 列 ， 我 试 了 一 些 方 法 ， 都 没 有 做 出 来 ， 请 高 手 指 点 。 
<END>
16,新建一新目录，但当有与目录同名的文件时却不成功
我 用 vb6.0+sp3,win98se， 使 用 如 下 语 句 想 新 建 一 新 目 录 ， 但 当 该 目 录 下 有 与 我 想 建 立 的 新 目 录 同 名 的 文 件 时 却 不 成 功 。 请 问 我 该 怎 样 写 该 语 句 ？ 
    dim newpath as string '根 目 录 下 有 文 件 名 为 "new"文 件 
    newpath="\new" 
    mkdir newpath 
    运 行 后 不 能 建 立 新 目 录 ， 如 果 把 删 除 后 可 "new"建 立 。 
<END>    
17,在vb中用二进制方式打开文件中的数据读到string型变量中为什么会出错
我 在 vb中 用 二 进 制 方 式 打 开 .exe 和 .bmp文 件 中 的 数 据 读 到 string型 变 量 中 。 然 后 再 已 put语 句 写 入 另 一 个 新 文 件 中 。 可 是 总 只 发 现 和 原 来 的 文 件 不 一 样 了 。 
    我 的 程 序 是 ： 
     dim fileno as inter 
     dim filelen as long 
     dim strX as string 
     fileno =freefile 
     '读 出 数 据 
     open "c:\a.bmp" for binary as fileno 
     filelen=LOF(fileno) 
     strX=Space$(filelen) 
     Get #文 件 号 , , strX 
     close fileno 
     '写 入 数 据 
     open "c:\b.bmp" for binary as fileno 
     put #fileno,,strX 
     close fileno 
    结 果 原 文 件 和 新 文 件 的 大 小 完 全 一 样 ， 可 是 新 的 bmp文 件 就 是 打 不 开 了 。 用 此 方 法 读 .exe文 件 和 bmp文 件 一 样 。 都 和 原 来 的 文 件 不 一 样 了 。 请 高 手 帮 帮 我 啊 ！ ！ 
<END>
18,如何保存密码等信息
我在程序设计中遇到这样一个问题，敬请指教:我想在程序中设置一个访问权限，但这个密码在程序运行时应该可以被修改，就像Windows中屏幕保护的密码设置一样，但是我不知道这个密码文件应该怎样存放，是修改注册表吗？可是现在照我的理解，注册表修改或增加键值后仍然可以被人发现，(我可以使用RegCreateKeyEx、RegQueryValueEX、RegSetValueEx等API)失去了保密的目的。该怎样实现这一功能?一般商用软件是怎样做到的?
<END>
19,如何获取某个文件夹的大小
问 题 : 如 何 用 API获 取 某 个 文 件 夹 的 大 小 ? 
<END>    
20,以二进制方式打开文件各有什么要求
问 题 : 
    1、 请 问 VB中 以 Binary,Input,Output,Random方 式 打 开 文 件 各 有 什 么 要 求 ， 另 外 Input,Output是 不 是 用 于 文 本 文 件 方 式 ， 而 另 外 两 个 用 于 二 进 制 文 件 方 式 。 
    2、 本 人 对 文 本 文 件 和 二 进 制 文 件 的 区 别 不 了 解 ， 望 那 位 大 虾 给 与 指 教 ， 小 弟 不 胜 感 谢 。 
<END>
21,如何获得任意磁盘的剩余空间
如 何 在 VB中 获 得 任 意 磁 盘 的 剩 余 空 间 ?
<END>
22,按文件类型获取其图标
问 题 : 按 文 件 类 型 获 取 其 图 标 
    现 在 ,有 很 多 软 件 如 "WinZip" 能 在 它 的 文 件 列 表 中 显 示 各 类 文 件 相 关 的 图 标 (exe等 可 执 行 文 件 例 外 )。 
    注 :是 压 缩 包 里 的 文 件 列 表 , 不 是 磁 盘 上 已 存 在 的 文 件 。 
    SHGetFileInfo、 ExtractAssociatedIcon等 函 数 好 象 不 能 返 回 不 存 在 的 文 件 的 图 标 . (如 果 根 据 不 同 的 扩 展 名 创 建 一 个 假 文 件 , 获 取 图 标 后 又 删 除 , 未 免 太 不 专 业 了 吧 )能 不 能 根 据 扩 展 名 取 得 相 关 图 标 ? 或 其 它 方 式 ?请 专 家 指 点 该 如 何 去 做 到 ? 
<END>    
23,CHM文件是一种什么文件如何打开
CHM文件是一种什么文件,如何打开? 
<END>
24,如何在VB中编程实现清空回收站
问 题 : 如 何 在 VB中 编 程 实 现 清 空 回 收 站 ？ 
<END>    
25,如何从文本文档中查找特定的字符
问 题 ： 我 的 程 序 要 从 7M至 14M的 文 本 文 档 中 查 找 特 定 的 字 符 。 在 这 大 的 文 本 中 是 由 “ LOC_NAME ??????"......"LASTREP ??????"文 本 段 组 成 ， 而 这 样 的 文 本 在 文 档 中 有 数 千 个 .我 用 二 进 制 读 写 ， 一 次 读 10k（ 如 果 太 大 ， 查 找 很 慢 ） 整 个 读 完 要 数 分 钟 （ 什 么 都 不 做 ， 只 读 文 件 不 查 找 ） ， 如 果 采 用 行 读 入 ， 还 要 慢 。 请 问 有 更 快 的 方 法 吗 ？ 能 用 API函 数 吗 ？ 有 比 INStr更 快 的 查 找 函 数 吗 ？ 
<END>
26,如何在一个Listbox控件中显示目录名在另一个控件中显示对应目录下的日志文件
如 何 在 一 个 Listbox控 件 A中 只 显 示 本 地 硬 盘 上 的 文 件 目 录 名 (不 显 示 文 件 名 本 身 !!),在 另 一 个 Listbox控 件 B中 只 显 示 A中 的 相 对 应 目 录 下 的 日 志 文 件 (*.log)????小 妹 感 激 不 尽 !!