sqlite 的简单使用和表结构及数据的导出 以及TCL处理csv

最近搞思博伦测试仪表，用TCL处理一下db文件和csv文件，学习一下。  

先下载sqlite3 .exe 才438KB  用它打开.db文件    方法如下:

  例如: 把sqlite3 .exe 放到D:/下面.  把test.db文件放在D:/A 目录下

 1>操作: 运行-->cmd-->D:--> sqlite3  D:/A/test.db

SQLite的简单使用

3.1 建立数据库

C:\sqlite> sqlite3.exe dbname.db

sqlite3.exe后面跟数据库文件名

3.2 创建数据表

sqlite> create table users(userid varchar(20) PRIMARY KEY,    ...> age int,    ...> birthday datetime);

3.3 添加记录

insert into users values('wang',20,'1989-5-4'); insert into users values('li',22,'1987-11-16');

3.4 查询记录

select * from users order by birthday;

3.5 删除记录

delete from users where userid='wang';

3.6 退出sqlite

sqlite> .exit

SQLite数据库的数据结构是存贮在 "sqlite_master" 表中

具体命令可以输入 .help查看或参考帮助文档

sqlite 表结构和数据的导出

全部导出 
sqlite3 data.db 
>.output dd.sql 
>.dump 

全部导入 
sqlite3 mydb.db 
>.read dd.sql 

平时使用官方提供的sqlite3.exe工具来操作 sqlite的数据库 
进入管理： 
sqlite3.exe d:\test.db //假设数据是　d:\test.db 
>.databases //显示所有数据库 和 mysql的　show databases;　 
>.tables //显示当前数据库的表格　和 mysql 的show tables;　 
>.schema tablename;  //显示表格结构　和mysql的　SHOW Create TABLE tbl_name 
>.output c:\\1.sql  //导出当前数据库的 sql语句　和mysql的 mysqldump 
>.dump 
>.import c:\\1.sql //导入　//mysql 用source 
=================== 
导入 
命令: .import 
sqlite> .import 文件名 表名 
注1: 不要忘了开头的点 
注2: 这条语句不能用分号结束. 非SQL不需要分号结束. 
注3: 需要查看默认的分隔符separator. 必须一致. 如果不一致可能导致sqlite字段分割错误. 
        查看分隔符使用命令  .show , 如果不一致可直接修改, 比如: 
        sqlite>.separator "," 
        将分隔符转为逗号. 
举例1: 
将文件a.csv中的数据导入表 tab_xx. (a.csv中字段以逗号分割) 
sqlite> .separator "," 
sqlite> .import a.csv tab_xx 
sqlite> 
导入结束. 

导出 
实现方式: 将输出重定向至文件. 
命令: .output 
sqlite> .output a.txt 
然后输入sql语句, 查询出要导的数据. 查询后,数据不会显示在屏幕上,而直接写入文件. 
结束后,输入 
sqlite> .output stdout 
将输出重定向至屏幕. 
举例2: 
将 tab_xx 中的数据导出到文件a.txt 
sqlite> .output a.txt 
sqlite> select * from tab_xx; 
sqlite> .output stdout 
导出完毕.

TCL处理CSV文件：

package require csv  

package require struct::queue

set csv_file d:\\EXCEL\\results.csv

set csv [ open $csv_file {RDWR} ]  

  

::struct::queue  myqueue

::csv::read2queue $csv myqueue

puts [myqueue size]

for {set i 0} {$i<[myqueue size]} {incr i} {

    puts [lindex [lindex [myqueue peek [myqueue size]] $i] 5]

}

对于myqueue的内容，可以使用

puts  [myqueue peek [myqueue size]]就OK了，得到myqueue的结构，可以按照你自己的想法进行解析。