Project1

标题: (vb)针对6r教程html文件的提取器 [打印本页]

作者: sizz123 时间: 2008-2-29 05:37
标题: (vb)针对6r教程html文件的提取器
我平时在主站上看教程的时候,往往喜欢用网页另存来下载网页,于是另存的那个文件夹中就堆满了各种各样的html文件,看起来好乱!大大影响了查阅的速度!

我于是写了个小程序,将从"主站--制作教程"中下载的教程文件,从一个文件夹中提取出来.(我不确定应不应该把原来的文件删除,所以删除文件的命令我注释掉了).如果文件夹中没有制作教程的话,会出错.(在这里,请教下程序出错后的处理方法).

http://rpg.blue/upload_program/files/6r文件提取_84663274.rar

作者: sizz123 时间: 2008-2-29 05:46
请教几个关于vb的问题

1,如何判断文件夹中是否有文本文件
2,程序重新启动后,如何让变量自动变成上次关闭时候的数值?(重新启动程序后,变量就为0了)

作者: yangff 时间: 2008-2-29 05:53
1,如何判断文件夹中是否有文本文件

dim Filepath$,s&
Filepath = "文件路径"
S=filelen(FilePath)

复制代码

S返回文件大小。。。。。
if s = 0 {/hx}

作者: sizz123 时间: 2008-2-29 06:00
返回文件大小,用getfile就行了,能提供一个完整的方法吗?

作者: yangff 时间: 2008-2-29 06:09

dim Filepath$,s&
dim a as boolean
a = true
'参数
Filepath = '路径'
'''''''''''''''''''''''''''''''''''''''''
S=filelen(FilePath)
if S > 0 then
a = false
end if

复制代码

给参数赋值后
如a = false则文件大小为零

作者: sizz123 时间: 2008-2-29 06:20
谢谢了

作者: 沉影不器 时间: 2008-2-29 23:19
提示: 作者被禁止或删除内容自动屏蔽

作者: sizz123 时间: 2008-3-1 00:17

以下引用沉影不器于2008-2-29 15:19:40的发言：

win32_find_data取得属性，再findfirstfile

没有见过的语句,dir命令也可以取得效果.

那么vb中,把1个元素推到数组中的操作是什么?

作者: yangff 时间: 2008-3-1 01:14
什么意思？

作者: 美兽 时间: 2008-3-1 01:31
VB不支持直接动态扩展。

重载，再加入新元素好了。

作者: 沉影不器 时间: 2008-3-1 03:33
提示: 作者被禁止或删除内容自动屏蔽

作者: sizz123 时间: 2008-3-1 06:44
api好象很多语言都通用,但api太复杂了,昨天在网络上看见有人用描点法画福娃,那代码的长度和表现出来的美容相比较简直是恐怖.

又问一个问题:关于txt文本的
比如选择了自动换行,文本的行数就改变了,用程序读文本指定行的时候会不同吗?

作者: 沉影不器 时间: 2008-3-1 18:51
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临 Project1 (https://rpg.blue/)