給你一個VB2010讀寫文件的例子吧
我們提供的服務(wù)有:成都網(wǎng)站設(shè)計、成都做網(wǎng)站、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、欒川ssl等。為1000+企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的欒川網(wǎng)站制作公司
Dim?name?As?String?=?""
Dim?age?As?Integer
name?=?InputBox("請輸入姓名")
age?=?InputBox("請輸入年齡")
FileOpen(1,?"d:\信息.txt",?OpenMode.Append)
WriteLine(1,?name,?age)
FileClose(1)
FileOpen(1,?"d:\信息.txt",?OpenMode.Input)
Dim?h?As?String
Dim?j?As?String
Dim?f?As?String
f?=?""
h?=?""
j?=?""
While?EOF(1)?=?False
f?=?LineInput(1)??vbCrLf??f
End?While
FileClose(1)
MsgBox("姓名"??"??"??"年齡"??vbCrLf??f)
無法讀取指定的某一行,只能通過對整個文本框里的字符串,采用字符串函數(shù)等方法,分離獲得某一行的內(nèi)容。
讀500萬行的txt文件190M左右,提取每行中特定字符,寫入7個文件,單個文件130萬行,13M左右。一共用時20秒左右。
用System.IO.StreamReader System.IO.StreamWriter。
可以把某個列為空就當(dāng)做是空行,你連接字符串是hdr=no,也就是第一行不作為列標(biāo)題,那么就是用的默認(rèn)的列標(biāo)題,F(xiàn)1,F(xiàn)2.。。這些。
比如,第一列的某行為空的話就當(dāng)做是空行,你可以加這個條件 where len([F1]) 0