MyException - 我的异常网
当前位置:我的异常网» Java Web开发 » 老板在催,大家帮忙看看吧,要不小弟我就要失业了

老板在催,大家帮忙看看吧,要不小弟我就要失业了

www.MyException.Cn  网友分享于:2013-03-14  浏览:19次
老板在催,急啊!大家帮忙看看吧,要不我就要失业了。
哪位仁兄有关于java访问数据库后   将数据库内容转成csv格式的源码,帮帮我吧,我们家孩子刚满月,我不能失业啊,我们能让孩子吃不上奶粉呀。苍天啊,保佑那些跟我贴帮我的人吧,谢谢了。

------解决方案--------------------
你能取出数据应该不难吧,CSV只是一种文件格式而以呀,也就是个文本文件,好象是用TAB分隔了。
------解决方案--------------------
什么数据库啊!这也不说清楚,
------解决方案--------------------
#将一个123M的csv文件((805 vars, 118519 obs))用R分析,如果直接全部读入,则没有足够的内存(我电脑512M内存)。单是这些数据变成R格式的数据其大小就约360M。现在只能read in piece。用database来处理。

rm(list=ls())
f <-file( "D:\wvsevs_sb_v4.csv ", "r ")#134M
i <- 0
done <- FALSE
library(RSQLite)
con <-dbConnect( "SQLite ", "c:\sqlite\database.db3 ")
tim1 <-Sys.time()

while(!done){
i <-i+1
tt <-readLines(f,2500)
if (length(tt) <2500) done <- TRUE
tt <-textConnection(tt)#readLines和textConnection的结合时候是很关键的。
if (i==1) {
#assign(paste( "tt ",i,sep= ". "),read.table(tt,head=T,sep= ", ",quote= " "));
assign( "dat ",read.table(tt,head=T,sep= ", ",quote= " "));
nam <-names(dat);
nam <-gsub( "^X. ", " ",nam);
nam <-tolower(gsub( ".$ ", " ",nam))#处理变量名字
names(dat) <-nam
}
else assign( "dat ",read.table(tt,head=F,sep= ", ",quote= " "))
close(tt)
ifelse(dbExistsTable(con, "wvs "),dbWriteTable(con, "wvs ",dat,append=T), dbWriteTable(con, "wvs ",dat) )
}
close(f)

#用paste函数动态变化参数取值
#for (i in range)
#assign(paste( "x ",i,sep= ". "),read.table(tt,head=T,sep= ", ",quote= " "));
#dbWriteTable(con, "newtable ",eval(as.name(paste( "x ", "1 ",sep= ". "))),over=T) # 这里用了as.name,用parse也可以的。
tim2 <-Sys.time()
rm(dat)
closeAllConnections()
tim2-tim1

#这个约12万行,807列的数据读书转换的时间一共是10分钟。觉得还可以。
#我的电脑是1.7G,512内存。
#接下来就可以通过RSQLite这个程序包来读入需要的数据,然后进行分析。

#get data and analysis
#1,dbConnect - dbSendQuery - fetch(dbGetQuery=dbSendQuery + fetch)
#2,dbConnect - dbReadTable #速度慢
##dbWriteTable函数会吧NA变成\N,因此会造成数字变字符的情况。这时候需要用as.numeric转换为数字或者select的时候用where var!= '\N ' 来选择。注意:这里是\N而不是\NA,where表达式中的单引号。
con <-dbConnect( "SQLite ", "c:\sqlite\database.db3 ")#建立连接(connection )
sq <-dbSendQuery(con, "select s006 from wvs ") #查询 ,注意变量名之间需要逗号
summary(dat <-fetch(sq,n=-1)) #提取,得到的是数据框
summary(dbGetQuery(con, "select s006 from wvs where s006= '\N ' ")[,1])


不知道能不能帮到你,我正患肺炎,我们都会好的
------解决方案--------------------
这个楼层很压抑啊
------解决方案--------------------
不会 帮忙顶
------解决方案--------------------
...csv不是逗号分割文件么,纯文本文件操作啊~没什么难度吧~还是我理解错了?
以前写过给你翻腾翻腾
------解决方案--------------------
我也只能帮忙顶了,我不知道什么是csv格式,我想如果了解这个格式应该就不是难事了吧,或者楼主去网上搜搜csv呢?呵呵,我不懂就不多说了


------解决方案--------------------
恭喜~~`解決了~~`
------解决方案--------------------
不知道,没法帮你.还是祝你好运吧!
------解决方案--------------------

文章评论

程序员都该阅读的书
程序员都该阅读的书
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
每天工作4小时的程序员
每天工作4小时的程序员
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
漫画:程序员的工作
漫画:程序员的工作
那些争议最大的编程观点
那些争议最大的编程观点
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
 程序员的样子
程序员的样子
程序员必看的十大电影
程序员必看的十大电影
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
代码女神横空出世
代码女神横空出世
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
程序员的鄙视链
程序员的鄙视链
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
程序员和编码员之间的区别
程序员和编码员之间的区别
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
鲜为人知的编程真相
鲜为人知的编程真相
为什么程序员都是夜猫子
为什么程序员都是夜猫子
一个程序员的时间管理
一个程序员的时间管理
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
中美印日四国程序员比较
中美印日四国程序员比较
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
编程语言是女人
编程语言是女人
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
我的丈夫是个程序员
我的丈夫是个程序员
旅行,写作,编程
旅行,写作,编程
如何成为一名黑客
如何成为一名黑客
我是如何打败拖延症的
我是如何打败拖延症的
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
程序员应该关注的一些事儿
程序员应该关注的一些事儿
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有