网站建设资讯

NEWS

网站建设资讯

vb.net文件号,vbs文件代码

VB.NET怎么删除INI文件里的一个字段或键值?

1,对于INI文件,可以当做像TXT文件一样来进行读取和写入。

成都创新互联从2013年创立,是专业互联网技术服务公司,拥有项目网站建设、网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元湘乡做网站,已为上家服务,为湘乡各地企业和个人服务,联系电话:028-86922220

2,先把整个文件度出来,然后找到相应行删除(抛弃)以后,再重新写入文件。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyStr As String = ""

Dim AllStr As String = ""

'获取一个可用的文件号

Dim MyFileNum As Integer = FreeFile()

'打开指定的文件,进行读取操作

FileOpen(MyFileNum, "C:\My.ini", OpenMode.Input)

Do While Not EOF(MyFileNum)

'读取一行

MyStr = LineInput(MyFileNum)

If MyStr  "b=2" Then

If AllStr = "" Then

AllStr = AllStr  MyStr

Else

AllStr = AllStr  vbCrLf  MyStr

End If

End If

Loop

FileClose(MyFileNum)   '关闭文件

'写文件

Dim MyStream As New System.IO.FileStream("C:\My.ini", IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.UTF8)

MyWriter.WriteLine(AllStr)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

End Class

vb.net如何关闭读取过的文件夹?

你都用.net了,这是vb的旧语法,不推荐使用。vb.net是面向对象的,推荐您使用

dim OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)

...

OpF.close

或是

Using OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)

...

End Using

但是你如果执意要用的话,也可以:

FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

...

FileClose(1) '这里可以同时关闭多个文件号,文件号之间用,隔开

新手关于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的文件操作资料来自于

如果您觉得我的回答帮助了您解决难题,别忘了采纳哦,如果我的回答未能解决您的问题,您可以在互联网上寻找更多的解决方案!

VB.Net怎样得到某个文件夹里的所有文件名

如果想要获得当前文件中的文件名只需要String [] fileName = file.list();就可以了。如果要包括文件中的文件名就可以用递归的方式。下面是两个具体的实现。 其中public static String [] getFileName(String path)是只得到当前文件中的文件名。


网站栏目:vb.net文件号,vbs文件代码
文章出自:http://cdweb.net/article/hsjjjj.html