CHM书籍转TXT方法
鉴于很多好书都是起点中文网首发的,而且制作手机书制作比较难,将我的反编译方法发上来供大家参考
1 到起点中文网下载你要的书,CHM格式的
2 下载CHM电子书反编译精灵,将其反编译
3 反编译后生成一个文件temphtm(如果看不到htm,选择 工具---文件夹选项---查看--隐藏已知文件的扩展名 √去掉---确认)
4 将 temphtm 改为 temptxt
5 用字符替换器去掉temptxt 中的 </script> <script> ,
将 false 替换成 ture 然后去掉 return ture
6 将文件名改回temphtm
此时就可以用浏览器看到正文内容了 随意你复制粘贴 最好把里面的网站标记也去掉 怪烦人的:)
datasource
可以赋值为
arraylist
datatable
和
dateview
datatable
和
dataview
都可以通过dataset得到,
dataset
可以通过dataadpter
得到
例子
return
一个dataview
public
function
getData()
as
dataview
dim
dataadpt
as
new
sqldataadapter(stringCmdText,
stringConnection)
dim
ds
as
new
dataset
dataadptfill(ds)
return
dstable(0)defaultview
end
function
这个是sql
2005
常用的方法,
触类旁通了。。。
你在做网页么?
网页的datagrid不能修改,
exe的是可以修改的,不过code我不清楚。
VBA
连接
SQL
SERVER
数据库
实例:
Dim
strConn
As
String,
strSQL
As
String
Dim
conn
As
ADODBConnection
Dim
ds
As
ADODBRecordset
Dim
col
As
Integer
'连接数据库的字符串
strConn
=
"Provider=SQLOLEDB1;Persist
Security
Info=True;User
ID=[user];Password=[password];Initial
Catalog=[database];Data
Source=[数据库IP地址或数据库服务器名称];Connect
Timeout=720;
"
'查询语句,如果sql语句很长可以用strSQL=strSQL+来连接分成多段的语句,如果语句很短可以只写在一行上。
strSQL
=
"select
from
Hy_KPI_Shop_Dept_WeekRpt
"
strSQL
=
strSQL+"where
sdate='2014-01-01'
order
by
sdate,shopid
"
Set
conn
=
New
ADODBConnection
Set
ds
=
New
ADODBRecordset
'打开数据库连接
connOpen
strConn
'该句和数据库连接字符串处的Connect
Timeout=720,表示说如果语句运行时间很长,这两句可以延长vba的等待时间,没有这两句,vba往往会报查询超时。
connCommandTimeout
=
720
With
ds
'根据查询语句获得数据
Open
strSQL,
conn
'自动控制加入所有列标题
For
col
=
0
To
dsFieldsCount
-
1
'请注意Offset(0,
col)中的参数一定要正确,该句表示标题将会写在第一行,从A1单元格开始,如果不想写入标题行,可将下面这句注释掉。
Worksheets("门店各课KPI周报")Range("A1")Offset(0,
col)Value
=
dsFields(col)Name
Next
'加入所有行数据,该句表示查询结果将会写在第一行,从A1单元格开始,但是由于标题行写在第一行了,所以实际这一行从标题下的一行写入。
Worksheets("sheet1")Range("A1")Offset(1,
0)CopyFromRecordset
ds
End
With
'关闭数据库连接和清空资源
Set
ds
=
Nothing
connClose
Set
conn
=
Nothing
以上就是关于怎么把chm转换成txt全部的内容,包括:怎么把chm转换成txt、VB中datagrid控件的datasource属性、Excel 求助,如何使用VBA实现远程访问SQL数据库等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)