paip.QQ音乐导出歌单总结
作者Attilax , EMAIL:1466519819@qq.com
来源:attilax的专栏
地址:http://blog.csdn.net/attilax
QQ音乐歌单已经越来越多兰.要不个哪导出备份一哈了....
哪本身马支持export功能..,只能自己想方法兰..
先是spylite查看累挂,歌单南儿不是个标准的控件..不管子瓦间还是拿个Aqua.Deskperience试达累挂.三,不行..
看来要从内存上想办法了,拿个winhex不个qq music 的process catch累挂,search累挂,型是欣赏兰.RA.开头儿的...就是不是弄规律..不好哈手阿.
看来要从网络通信上想办法了.拿wsexpolore 试达累挂,捕获到兰,就是叫哪狗儿加密兰..赃给儿.
估计哪本地雅缓存着了,从直上想办法..拿个processmonitor不个哪监视累挂..袖管加磊个歌儿,就发现兰.C:\\Documents and Settings\\Administrator\\Application Data\\Tencent\\QQMusic\\qmdb 欣赏兰阿.
看累挂,SQLITE的哈..SQLiteExpertPro.exe打开一看,规律..就是仄兰..不过,分类跟个歌单不直接关联的个一达..就是内个catelog哈面儿的歌单是个逗号分割字段..还是要休整给挂了...
mysql的find_in_set, mssql都有逗号分割字段的函数了..sqlite三马..只好存储过程兰,三,查看累挂,sqlite不支持,连个函数雅不支持..不过事务倒是支持直了...触发器也有了..外键也能支持..
看来,只好拿个C++写个程序兰..查看累挂SQLiteExpertPro的手册,还支持LUA跟Pascal 的扩展直了..就拿个LUA脚本写算兰吧..editplus不支持lua,下载累挂notepad++,算是有语法高亮兰..就是sqlitedatabase class ,The sqlitequery class ,The sqlitefield class 语法不发亮..不个哪扩展累挂,仿照QT,类red,方法蓝色的...设置>语言格式设置...设置好好后,查看更改.打开stylers.xml, <LexerType name="lua" desc="Lua" ext="">
<WordsStyle name="FUNC1" styleID="13" fgColor="0080C0" bgColor="FFFFFF" fontName="" fontStyle="1" fontSize="12" keywordClass="instre2">new sql active first eof connected filename database edit getfield value displaydata open free</WordsStyle>
<WordsStyle name="FUNC2" styleID="14" fgColor="8000FF" bgColor="FFFFFF" fontName="" fontStyle="1" fontSize="" keywordClass="type1" />
<WordsStyle name="FUNC3" styleID="15" fgColor="FF8040" bgColor="FFFFFF" fontName="" fontStyle="3" fontSize="" keywordClass="type2">sqlitedatabase sqlitequery sqlitefield attilaxc920</WordsStyle>
关于逗号分割字段
--------------------
由于很多业务表因为历史原因或者性能原因,都使用了违反第一范式的设计模式。即同一个列中存储了多个属性值(具体结构见下表)。
还有个优点,就是 in () 操作的时候方便..
有时候需要将这个列依据分隔符进行分割,并得到列转行的结果。
最后的lua脚本:
------------------
--参数设置区---
---author: attilax date:c920
qq="1466519819"
catname_export="我喜欢"
dbpath='C:\\Documents and Settings\\Administrator\\Application Data\\Tencent\\QQMusic\\qmdb'
--------- pragram start
databasex = sqlitedatabase:new()
print(dbpath);
print("halo");
print("3333");
databasex:filename(dbpath)
databasex:connected(true)
query = sqlitequery:new()
query:database(databasex)
sqlc920a=" SELECT [Cat].[Cat_textSongs] FROM [Cat] where Cat_strCatName='"..catname_export.."' and cat_nuser="..qq;
--sqlc920a=" select 'aa' ";
print ("\n-- sql---"..sqlc920a);
query:sql(sqlc920a)
query:active(true)
print ("\naquery is eof ----",query:eof() );
query:first()
while (query:eof() == false) do
print ("\n has record query is eof 222 ----",query:eof() );
query:edit()
catname= query:getfield('Cat_textSongs'):value()
--:value();
query:next()
end
sqlc920=[[select s.*,m.[dwOutSigID] from [SongInfo] s,[SongMap] m
where s.dwSigID=dwInSigID and dwOutSigID in (]]..catname ..") ";
print(sqlc920);
displaydata(query)
-----select songes
query:sql(sqlc920)
query:open();
displaydata(query)
query:free()
databasex:free()
参考\
MySQL逗号分割字段的行列转换技巧 - cenalulu - 博客园.htm
5款免费好用的SQLite管理工具_数据库_西部e网.htm
SQLite 函数大全 - - ITeye技术网站.htm
Lua程序设计.chm