㈠ vb2008 读写文本
vb2008读写文本：Imports System.IOPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim r As New StreamReader("C:\ABC.txt", System.Text.Encoding.Default) '用StreamReader打开文本文件 Dim s As String TextBox1.Text = "" Do While r.Peek > -1 '是否到文件尾 s = r.ReadLine '从打开的文件中读取一行内容 TextBox1.Text = TextBox1.Text & s & vbCrLf '添加到文本框TextBox1.Text的后面并回车 Loop r.Close() '关闭对象 End SubEnd Class
㈡ 如何用vb写文件操作
题主同时开了两个问题啊：
http://..com/question/578481323.html?oldq=1#answer-1453848518
因为题主给的条件太少，我这里先假设题主的填写工程名称的控件是Combo1，填写取用人的控件是Combo2，填写出入库的控件是Option1和Option2，填写取用数量的控件是Text1，填写备注的控件是Text2，确认按钮的控件是Command1，那么应该在Command1_Click中添加如下代码：
DimmyInfoAsStringDimmyStrAsStringDimfileNameAsStringIfOption1.Value=TrueThenmyStr="出库"ElsemyStr="入库"EndIfmyInfo="工程名称："&Combo1.Text&"|取用人："&Combo2.Text&"|出入库："&myStr&"|数量："&Text1.Text&"|备注："&Text2.TextfileName=App.Path&"123.txt"OpenfilenNameForAppendAs#1Print#1,myInfoClose#1
㈢ vb 文本文件操作
1、把文本文件内容写到TextBox：Dim TempFile As LongDim LoadBytes() As ByteTempFile=FreeFileOpen 文件名 For Binary As #TempFileRedim LoadBytes(1 To Lof(TempFile)) As ByteGet #TempFile,,LoadBytesClose TempFileText1.Text=StrConv(LoadBytes,vbUniCode)2、把TextBox内容写入文本文件：Dim TempFile As LongDim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFileOpen 文件名 For Binary As #TempFilePut #TempFile,,SaveBytesClose TempFile3、删除TXT文件里的内容：Private Function DelLine(strFile As String, RLine As Long, newFile As String, SameLine As Boolean)Dim s As String, n As String, i As Longi = 1'//打开源文件Open strFile For Input As #1Do Until EOF(1)Line Input #1, sIf RLine = i Then '如果是指定的行数就进行下面的操作If SameLine = True Then '是否保持源文件行数不变(以空白字符替换这一行内容)的提示,True保持源文件的行数,False为直接删除这一行的内容s = ""n = n & s & vbCrLf '将空字符串赋给变量n,以保持源文件的行数' MsgBox strFile & " 文件中,第 " & RLine & " 行内容" & vbCrLf & s & vbCrLf & "已经删除", vbInformation, "消息提示"End If' s="也可以把这一行的内容改成自己需要的"Else '如果不是指定的行数,就将s的内容赋给变量n 以存储数据n = n & s & vbCrLf '将s的内容赋给n 并以一个回车符号结束….End Ifi = i + 1LoopClose #1'//写入新文件,如果和源文件同名则会覆盖源文件Open newFile For Output As #2Print #2, n '将n变量里的数据写入新文件Close #2End Function'调用方法:'比如要把c:\1.txt 删除其中的第5行内容,并保留源文件总行数(删除的这行插入一空字符串)'DelLine "C:\1.txt", 5, "C:\2.txt", True'删除C:\1.txt 删除里面的第一行,且不保留文件的总行数DelLine "C:\1.txt", 1, "C:\1.txt", False
㈣ VB2008读取文件夹中所有文件JPG
用Microsoft.VisualBasic.FileIO.Filesystem.GetFiles方法。在文件名参数写"*.jpg"就行了。返回ReadOnlyCollection。记住：READONLYCOLLECTION的Item属性最大值为Count-1不是count 然后用for循环将readonlycollection的项添加到ListBox控件。把邮箱给我，过两天把代码发给你 代码 On Error Resume Next'最好使用VB.NET 的Try catch语句块 dim Loopint1 as integer，tmpstr1,tmpstr3 as string Dim flist As System.Collections.ObjectModel.ReadOnlyCollection(Of String) fList=Microsoft.VisualBasic.FileIO.FileSystem.GetFiles(gfPath, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg") x = flist.Count For LoopInt1 = 0 To x – 1 '循环控制 tmpstr3 = "" '清空属性字符串 tmpstr1 = flist.Item(LoopInt1) IntInStr = InStrRev(tmpstr1, "\") tmpstr2 = Microsoft.VisualBasic.Strings.Right(tmpstr1, Len(tmpstr1) – IntInStr)'只得到文件名，如果要完整路径就要循环里第二行即可 Listbox1.Items.Add(tmpstr2)'添加内容 Next'其实完全可以制作一个VB6的文件列表框，加上Listview，资源管理器也是可以做的，只不过图标控制比较麻烦而已'照相时间要获得EXIF信息，这个我不知道，你上网找找看
㈤ 如何VB用进行文件操作
理论上文本文建建在哪里都可以，不过出于灵活考虑，一般建在app.path后的目录，就是你软件运行时的目录。至于文件号，只要你不重复，随便你怎么定，一个文件号等于一个工作区，对哪个工作区进行读写操作，也就是对该文件操作介绍文件读写的方法很多，老式的 open as 可以，新的FSO也行，其实用VB不一定要上外面站到处去找教程，最好的帮助教程我觉得还是MSDN，通俗易懂，而且查找也方便，建议你参照MSDN先练习练习文件读，写，修改，添加的练习吧
㈥ vb怎样进行文件操作 代码
Private Sub Command1_Click()'创建并写入TXT文件Open "D:/1.txt" For Append As #1Print #1, "Hello Wolrd!"Close #1'打开并读取数据Open "D:/1.txt" For Input As #1Dim a As StringLine Input #1, aMsgBox "这个文件中储存的数据是:" & vbCrLf & " " & a, 48, "提示"Close #1End Sub
㈦ vb有文件夹，文件操作函数
DIR 查找文件Kill 删除文件FileLen 文件长度Name 文件重命名Open 打开文件Get 读文件Put 写文件Close 关闭文件Seek 设置文件指针GetAttr 获取文件属性SetAttr 设置文件属性………………省略N个…………
㈧ 在VB2008文件读写操作
你在读取文本文件时没有注意编码方式. Dim open As New OpenFileDialog open.Filter = "TXT 文件|*.txt" open.FileName = "" open.ShowDialog() If open.FileName = "" Then Exit Sub Dim sr As New System.IO.StreamReader(open.FileName, System.Text.Encoding.Default) TextBox1.Text = sr.ReadToEnd() sr.Dispose()
㈨ vb操作txt文件
请参考参考这个：(可能是c:\testini.txt文件中时间格式不对，本例中格式如下：2008-12-14 20:59:28 ，也有可能是Interval的问题，本例中用的是秒"s")Private Sub Command1_Click() Open "d:\testini.txt" For Output As #1 Open "d:\testini1.txt" For Output As #2 Print #2, Now For i = 0 To 100000000 Next Print #1, Now Close #1, #2 Open "d:\testini.txt" For Input As #1 Open "d:\testini1.txt" For Input As #2 Line Input #1, a Line Input #2, b Close #1, #2 MsgBox DateDiff("s", b, a) End Sub
㈩ 如何用VB创建文件并对它操作。
VB可用Open 语句操作或建立文件。
Open 语句，能够对文件输入/输出 (I/O)。
TypeRecord'定义用户自定义数据类型。IDAsIntegerNameAsString*20EndTypeDimMyRecordAsRecord'声明变量。Open"TESTFILE"ForRandomAs#1Len=Len(MyRecord)'若要以其他方式打开文件，必需先关闭此文件。Close#1
