• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

对csv文件读写时出现的奇怪的问题

tinn 2005-03-30 02:36:19

小弟最近在写一个程序,从csv源文件中读取前两列数据到目标文件中,下面的是源代码。
运行并无任何报错,但是如果源文件中有1000行数据,运行后目标文件中只导入了934行。
500行导出479行,250行导出138行,150行导出138行,10行导出0行!
请各位大虾帮我看看哪里出错了!

Imports System.IO
Module Module1

Sub Main()
Dim Data_Item(1) As String
Dim SReadLine As Stream
Dim LineStr As String
Dim I As Integer
Dim sb As New FileStream("c:\MyFile.csv", FileMode.OpenOrCreate)
Dim sw As New StreamWriter(sb)

SReadLine = File.OpenRead("C:\aa.csv")

Dim SrReadLine As StreamReader = New StreamReader(SReadLine, _
System.Text.Encoding.ASCII)
SrReadLine.BaseStream.Seek(0, SeekOrigin.Begin)
sw.BaseStream.Seek(0, SeekOrigin.Begin)
While (SrReadLine.Peek() > -1)
LineStr = SrReadLine.ReadLine
Console.Write(LineStr)
Data_Item = LineStr.Split(","c)
sw.WriteLine(Data_Item(0) & "," & Data_Item(1))
Data_Item(0) = ""
Data_Item(1) = ""
End While



SrReadLine.Close()
Console.ReadLine()

End Sub
End Module1
...全文
52 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-30 02:36
社区公告
暂无公告