大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
function writetxt (filename as string,currenttxt as string) filename ="c:\" filename ".txt" 'filename要生成的文件名 currenttxt当前写入的文件内容. open filename for output As #1 print #1, currenttxt close #1 end functiong sub xxx ... '定义rs为recorder,并生成记录集, ... rs.movefirst while not rs.eof call writetxt rs.filds("文章标题").value ,rs.filds("文章").value rs.movenext loop '关闭记录集等 end sub
创新互联主营富阳网站建设的网络公司,主营网站建设方案,重庆APP开发,富阳h5重庆小程序开发搭建,富阳网站营销推广欢迎富阳等地区企业咨询
举个例子:
先引入命名空间:
Imports
System.IOImports
System.Security.AccessControl
代码:
Dim
sec
As
DirectorySecurity
=
New
DirectorySecurityDim
rule
As
FileSystemAccessRule
=
New
FileSystemAccessRule("Administrator",
FileSystemRights.Delete,
AccessControlType.Allow)sec.AddAccessRule(rule)Directory.CreateDirectory("C:\test",
sec)
这段代码就是以
Administrator
帐户
在
C:\
创建
test
文件夹。
CSV文件,在EXCEL里可以直接生成与读取。
可以通过VB.net去操作,打开EXCEL文件,去完成上述操作,而更为简单的办法是直接当做操作文本文件(TXT文件)就可以,因为用记事本软件,打开CSV文可以发现,其实际上是一个行内数据之间用逗号分隔的格式文件。
下面给出例子:
在窗体上添加两个多行文本框,两个按钮,两个文本框一个用来输入生成CSV文件的数据,另一个用来读取显示CSV文件的数据;两个按钮,一个完成生成CSV文件的代码,另一个完成读取CSV文件的代码;具体代码如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建(写入)一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.CSV", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.CSV", System.Text.Encoding.UTF8)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
注意:在输入文本框里,同一行数据的数据之间用逗号(西文逗号)分隔。
vb.net生成的exe文件要在没有安装vb的电脑上运行是可以的,但有条件:
1.
要安装
.net
framework2.0或以上版本,然后就可以直接运行exe
2.
利用vb打包项目,生成可安装的exe文件或绿色直接可执行的exe文件
3.
不喜欢vb6可以删除之,但必须再安装同类型的.net的ide产品后也可以
1、简单的程序,只要在"文件"菜单下的"生成",生成的EXE文件和你要用的数据库和其他外部文件一起移植到其他电脑上,就可以了。
2、复杂的程序,建议用"打包",打包完以后,在其他电脑上安装以后再用.
打包方法-→打开菜单栏“外接程序”→“外接程序管理器”→“打包和展开向导”→“加载/卸载”→确定,在“外接程序管理器”里找到“打包和展开向导”,打开“打包和展开向导”,再一步步进行打包就可以生成一个安装程序。
vb.net生成的exe文件要在没有安装vb的电脑上运行是可以的,但有条件:
1.
要安装
.net
framework2.0或以上版本,然后就可以直接运行exe
2.
利用vb打包项目,生成可安装的exe文件或绿色直接可执行的exe文件
3.
不喜欢vb6可以删除之,但必须再安装同类型的.net的ide产品后也可以