正文
vb.net顺序文件容量,vb 顺序文件
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
要用VB.NET将一个几百万行的字符串数组（几百M），写入一个文本文件中。怎么样才能较快实现（20秒内）？
读500万行的txt文件190M左右，提取每行中特定字符，写入7个文件，单个文件130万行，13M左右。一共用时20秒左右。
用System.IO.StreamReader System.IO.StreamWriter。
相关问答
Q1: vb.net writeline
把aa.Writeline(TextBox15.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox9.Text, TextBox10.Text, TextBox5.Text, TextBox7.Text, TextBox6.Text, TextBox8.Text, Label22.Text, Label23.Text, TextBox16.Text)
改为：
aa.Writeline(TextBox15.TextTextBox1.TextTextBox2.TextTextBox3.TextTextBox4.TextTextBox9.TextTextBox10.TextTextBox5.TextTextBox7.TextTextBox6.TextTextBox8.TextLabel22.TextLabel23.TextTextBox16.Text)
或者
aa.Writeline(TextBox1.Text）
aa.Writeline(TextBox2.Text）
aa.Writeline(TextBox3.Text）
...
Q2: 如何用vb.net2003读写内存
使用FileStream读写文件
文件头：
using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
读文件核心代码：
byte[] byData = new byte[100];
char[] charData = new char[1000];
try
{
FileStream sFile = new FileStream("文件路径",FileMode.Open);
sFile.Seek(55, SeekOrigin.Begin);
sFile.Read(byData, 0, 100); //第一个参数是被传进来的字节数组,用以接受FileStream对象中的数据,第2个参数是字节数组中开始写入数据的位置,它通常是0,表示从数组的开端文件中向数组写数据,最后一个参数规定从文件读多少字符.
}
catch (IOException e)
{
Console.WriteLine("An IO exception has been thrown!");
Console.WriteLine(e.ToString());
Console.ReadLine();
return;
}
Decoder d = Encoding.UTF8.GetDecoder();
d.GetChars(byData, 0, byData.Length, charData, 0);
Console.WriteLine(charData);
Console.ReadLine();
写文件核心代码：
FileStream fs = new FileStream(文件路径,FileMode.Create);
//获得字节数组
byte [] data =new UTF8Encoding().GetBytes(String);
//开始写入
fs.Write(data,0,data.Length);
//清空缓冲区、关闭流
fs.Flush();
fs.Close();
2、使用StreamReader和StreamWriter
文件头：
using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
StreamReader读取文件：
StreamReader objReader = new StreamReader(文件路径);
string sLine="";
ArrayList LineList = new ArrayList();
while (sLine != null)
{
sLine = objReader.ReadLine();
if (sLine != null!sLine.Equals(""))
LineList.Add(sLine);
}
objReader.Close();
return LineList;
StreamWriter写文件：
FileStream fs = new FileStream(文件路径, FileMode.Create);
StreamWriter sw = new StreamWriter(fs);
//开始写入
sw.Write(String);
//清空缓冲区
sw.Flush();
//关闭流
sw.Close();
fs.Close();
===================================================================================
方式一：用FileStream
//实例化一个保存文件对话框
SaveFileDialog sf = new SaveFileDialog();
//设置文件保存类型
sf.Filter = "txt文件|*.txt|所有文件|*.*";
//如果用户没有输入扩展名，自动追加后缀
sf.AddExtension = true;
//设置标题
sf.Title = "写文件";
//如果用户点击了保存按钮
if(sf.ShowDialog()==DialogResult.OK)
{
//实例化一个文件流---与写入文件相关联
FileStream fs = new FileStream(sf.FileName,FileMode.Create);
//获得字节数组
byte [] data =new UTF8Encoding().GetBytes(this.textBox1.Text);
//开始写入
fs.Write(data,0,data.Length);
//清空缓冲区、关闭流
fs.Flush();
fs.Close();
}
方式二：用StreamWriter
//实例化一个保存文件对话框
SaveFileDialog sf = new SaveFileDialog();
//设置文件保存类型
sf.Filter = "txt文件|*.txt|所有文件|*.*";
//如果用户没有输入扩展名，自动追加后缀
sf.AddExtension = true;
//设置标题
sf.Title = "写文件";
//如果用户点击了保存按钮
if (sf.ShowDialog() == DialogResult.OK)
{
//实例化一个文件流---与写入文件相关联
FileStream fs = new FileStream(sf.FileName, FileMode.Create);
//实例化一个StreamWriter--与fs相关联
StreamWriter sw = new StreamWriter(fs);
//开始写入
sw.Write(this.textBox1.Text);
//清空缓冲区
sw.Flush();
//关闭流
sw.Close();
fs.Close();
}
string FileName = Guid.NewGuid().ToString() + ".txt"; //GUID生成唯一文件名
StringBuilder ckpw = new StringBuilder("\"凭证输出\", \"V800\", \"001\", \"东风随州专用汽车有限公司\"," + "\"F89自由项16\", \"F90审核日期：\"");
if (!FileIO.IsFolderExists(Server.MapPath("pzsc")))
FileIO.CreaterFolder(Server.MapPath(""), "");
string filePath = Server.MapPath("pzsc") + "\\" + FileName;
System.IO.StreamWriter sw = new System.IO.StreamWriter(filePath, false, Encoding.GetEncoding("GB2312"));//创建的时候需要指定编码格式，默认是UTF-8，中文显示乱码
sw.WriteLine(ckpw.ToString());
sw.Close();
方式三：用BinaryWriter
//实例化一个保存文件对话框
SaveFileDialog sf = new SaveFileDialog();
//设置文件保存类型
sf.Filter = "txt文件|*.txt|所有文件|*.*";
//如果用户没有输入扩展名，自动追加后缀
sf.AddExtension = true;
//设置标题
sf.Title = "写文件";
//如果用户点击了保存按钮
if (sf.ShowDialog() == DialogResult.OK)
{
//实例化一个文件流---与写入文件相关联
FileStream fs = new FileStream(sf.FileName, FileMode.Create);
//实例化BinaryWriter
BinaryWriter bw = new BinaryWriter(fs);
bw.Write(this.textBox1.Text);
//清空缓冲区
bw.Flush();
//关闭流
bw.Close();
fs.Close();
}
C#缓存流示例------用缓存流复制文件
C#文件处理操作必须先导入命名空间：using System.IO;
背景：使用VS2005、一个按钮、一个窗体、C#缓存流、把D:\KuGoo\爱得太多.wma复制到D:\并更名为love.wma,即：D:\love.wma
在按钮的Click事件中添加如下代码：
private void button1_Click(object sender, EventArgs e)
{
//创建两个文件流 一个是源文件相关，另一个是要写入的文件
FileStream fs = new FileStream(@"D:\KuGoo\爱得太多.wma",FileMode.Open);
FileStream fs2 = new FileStream(@"D:\love.wma",FileMode.Create);
//创建一个字节数组，作为两者之间的媒介
//好比两个人拿苹果，这个字节数组就好比一个篮子，一个人作死的把苹果送到篮子里面，
//而我就可以作死得拿苹果，通过这个媒介我们互不干扰，
//不需要互相等待【她往篮子里面放了苹果我才可以去拿】，提高了效率
byte[] data = new byte[1024];
//创建两个缓冲流，与两个文件流相关联
BufferedStream bs = new BufferedStream(fs);
BufferedStream bs2= new BufferedStream(fs2);
//fs作死的读，fs2作死的写，直到fs没有字节可读fs2就不写了
//好比，一个人作死的往篮子里面丢苹果，另一个人作死得往篮子里面拿苹果，直到篮子里面没有苹果拿了为止
//即--那个人没有苹果往篮子里面放了
while(fs.Read(data,0,data.Length)0)
{
fs2.Write(data,0,data.Length);
fs2.Flush();
}
//关闭流，好比两个人累了，都要休息 呵呵o(∩_∩)o...
fs.Close();
fs2.Close();
}
C#内存流示例-----用内存流来读取图片
C#文件处理操作必须先导入命名空间：using System.IO;
背景：一个窗体、一个pictureBox、一个lable[没有选择图片,lable的text为"图片未选择"],在pictureBox1的Click事件中添加如下代码：
private void pictureBox1_Click(object sender, EventArgs e)
{
//实例化一个打开文件对话框
OpenFileDialog op = new OpenFileDialog();
//设置文件的类型
op.Filter = "JPG图片|*.jpg|GIF图片|*.gif";
//如果用户点击了打开按钮、选择了正确的图片路径则进行如下操作：
if(op.ShowDialog()==DialogResult.OK)
{
//清空文本
this.label1.Text = "";
//实例化一个文件流
FileStream fs = new FileStream(op.FileName, FileMode.Open);
//把文件读取到字节数组
byte[] data = new byte[fs.Length];
fs.Read(data, 0, data.Length);
fs.Close();
//实例化一个内存流---把从文件流中读取的内容[字节数组]放到内存流中去
MemoryStream ms = new MemoryStream(data);
//设置图片框 pictureBox1中的图片
this.pictureBox1.Image = Image.FromStream(ms);
}
}
Q3: 怎么样用vb做到修改文件排序的方式。我想设置在一个文件夹内的所有文件按照 大小排序 的方式
你是使用VB6或是VB.NET ?
你要在哪个VB控件里面操作排序文件？
Q4: vbnet 如何获取文件大小
你实例化一个文件对象，就可以获取这个文件的相关属性了，VB.NET实例，以你的文件为例：
Dim sourcefileinfo As New FileInfo(“ c:\1.txt”) '定义并实例化FileInfo对象。length就是它的大小！
label1.Text = "文件大小为: " sourcefileinfo.Length "字节"
Q5: 新手关于VB.net的问题
您好，在Visual Basic.NET中，是没有像这样的文件I/O操作的，一般都是通过System.IO.StreamReader和System.IO.StreamWriter类，System.IO.BinaryReader和System.IO.BinaryWriter类来读写文件以及利用My.Computer.FileSystem类读写文件，利用System.IO.Filestream类来创建文件，通过引用Microsoft Scripting Runtime来执行文件（夹）和驱动器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter类。
例如说要读取一个文件，我们可以利用System.IO.StreamReader类编写一个方法（也就是函数），但是首先要在当前类的开头添加一个引用，引用名称：System.IO，添加引用的代码如下
Imports System.IO
添加引用之后，就在当前类的内部创建方法：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
ReadFile = sr.ReadToEnd()
sr.Close()
sr = Nothing
End Function
示例说明：
该方法是一个返回String（字符串）数据的函数，FileURL作为参数是用来存放需要访问的文件的URL，当然，要获取一个文件的URL，就是利用这一句代码实现的：
Dim sr As StreamReader = New StreamReader(FileURL)
当获取了URL之后，就要对文件进行读取操作了，然后将读取的结果返回给方法：
ReadFile = sr.ReadToEnd()
读取文件完毕之后，要对文件执行关闭操作：
sr.Close()
当然别忘了清理资源：
sr = Nothing
StreamReader类可以从流或文件中读取字符，在创建StreamREader类的对象时，可以指定一个流对象，也可以指定一个文件URL，创建对象后就可以调用他的方法，从流中读取数据，其常用方法如下：
Peek：返回下一个可用字符，但不使用它。
Read：读取输入流中下一个字符或一组字符并移动流或文件指针。
ReadBlock：从当前流中读取最大数量字符并从index开始将数据写入buffer。
ReadLine：从当前流中读取一行字符并将字符作为String返回。
REadToEnd：从流的当前位置到末尾读取流。
Close：关闭打开的对象，释放资源。
注：流，一种新的数据格式，这种格式可通过System.IO命名空间下的类访问。流用Stream类表示，所有的流都是从这个类中继承的。流向用户提供了一个一般的数据视图，隐藏了操作系统和底层设备的实现细节，所有的流都支持读写操作。在打开文件时将返回对应的流对象，用户可以对流对象进行读写操作。
如果要对文件执行按行读取操作，这时就会用到枚举，这时候，代码就要更改一下了：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
For Each fLine As String In sr.ReadToEnd()
Line = sr.ReadLine()
ReadFile = ReadFile fLine
Next sr.ReadLine
sr.Close()
End Function
示例说明：
For Each…Next：派生于For…Next循环，用于枚举一系列对象中的成员，而这些对象组成集合，如果集合中至少存在一个元素，程序就会静茹For Each块执行。其格式如下：
For Each 元素 [As 数据类型] In 元素集合
[循环体]
[Exit For]
[循环体]
Next [元素]
比如：
Dim CountNumber As ULong = 0
Dim FolderName() As String = New String() {" "}
For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")
CountNumber = CountNumber + 1
ReDim Preserve FolderName(1 To CountNumber)
FolderName = strFolder
Next strFolder
注：My.Computer.FileSystem.GetDirectories：主要用来枚举指定目录的子文件夹。
Preserve：主要用来避免重定义数组而不损失数组元素的原有数据。
另外，利用My.Computer.FileSystem也可以实现文件的读取，其代码如下：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")
示例说明：
定义一个字符串变量利用My.Computer.FileSystem.ReadAllText来实现对“C:\test.txt”的读取。
如果是已经编码的文本，则可以使用My.Computer.FileSystem对象中的ReadAllText方法并提供路径和文件编码类型，将文本写入字符串变量中，例如：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _
System.Text.Encoding.UTF32)
当然，System.Text.Encoding的成员不止一个，它还有如下成员：
System.Text.Encoding.UTF8
System.Text.Encoding.UTF16
System.Text.Encoding.ASCII
System.Text.Encoding.Unicode
这些是常见的成员，也是主要的成员。
另外，利用My.Computer.Filesystem类无法实现文件的行操作，还有，如果您的计算机未安装完整的Microsoft.NET Framework Runtime，则无法实现这种操作！
写入文件的操作同样简单，Visual Basic.NET 允许用户使用StreamWriter来对文件写入内容，下面就让我们来创建一个子例程，来实现文件的写入：
Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)
Dim sr As StreamWriter = New StreamWriter(FileURL)
sr.Write(FileCon)
sr.Close()
sr = Nothing
End Sub
示例说明：
sr.Write(FileCon)：将FileCon写入文件FileURL之中。
另外，StreamWriter常用方法如下：
WriteLine：向流中写入一行，后面跟结束符。
Write：写入流，向流对象中写入字符并移动流或文件指针。
Close：关闭打开的对象，释放资源。
附：Visual Basic 6.0文件操作解说：
打开： Open 文件名 For Input | Output | Append As [#]文件号
Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打 开追加写入，文件不存在则创建。
读： Line Input #文件号, 字符串变量
读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf）
Input #文件号, 变量1[, | ;] [变量2]...
这种方式可以存入多个变量，而且变量类型不限于字符串型。
写： Print #文件号, 参数1[, | ;] [参数2]...
将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。
Write #文件号, 参数1[, | ;] [参数2]...
这种写入方式将自动添加界定符，对不同参数的类型加以界定。
Visual Basic 6.0文件操作函数：
Seek： Seek(文件号)
返回文件正在访问的位置，返回值为长整型。对顺序文件和二进制文件，返回值以字节为单位；对随机访问文件，返回值以记录号为单位。
Seek： Seek [#]文件号，位置
定位文件到指定位置。位置单位同上所述。
Input： Input (字节数，[#]文件号)
从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。
EOF： EOF(文件号)
判断文件的访问位置是否在文件尾，如果是，返回True，否则，返回False。
LOF： LOF(文件号)
返回文件长度，单位为字节。
FileLen： FileLen (文件名)
返回文件名对应文件的长度，单位是字节。该函数取磁盘文件标识中的长度，即文件打开前的长度，可以取未打开的文件长度。
GetAttr： GetAttr (Pathname)
返回指定文件或文件夹的属性。
FileAttr： FileAttr (文件号)
返回文件号对应文件的打开方式。
GetDateTime： GetDateTime (Pathname)
返回文件被创建或修改的最后日期和时间。
Free： FreeFile[(0|1)]
返回未被占用的文件号，Free或Free(0)返回1～255之间未占用的文件号，Free(1)返回256～511之间未占用的文件。
Dir： Dir (Pathname [,Attributes])
测试指定路径是否有某文件，Attributes附加文件属性条件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。
Kill： Kill (文件名)
删除指定文件，文件名可包含路径。
FileCopy： FileCopy 源文件，目标文件
拷贝文件。
Name： Name 旧文件名 As 新文件名
文件重命名。前后路径不一致时，操作为移动文件并重命名。
MkDir： MkDir path
新建文件夹。
RmDir： Rmdir path
删除文件夹。
ChDrive： ChDrive Drive
改变当前驱动器 ChDrive "D"
CurDir： CurDir [(driver)]
返回当前工作路径，指定driver则返回目标驱动器的当前工作路径。
举例：
'新建文件，并写入数据，关闭
Open "a.txt" For Output As #1
Print #1, "ABCDEFG"; vbCrLf; "HIJK"
Close #1
'打开文件，并全部写入新文件，关闭
Open "a.txt" For Input As #2
Open "b.txt" For Output As #3
Dim str As String
While (Not EOF(2))
Line Input #2, str
Print #3, str
Wend
Close
注：关于Visual Basic 6.0的文件操作资料来自于
如果您觉得我的回答帮助了您解决难题，别忘了采纳哦，如果我的回答未能解决您的问题，您可以在互联网上寻找更多的解决方案！
