精华内容
下载资源
问答
  • vb读取txt文件

    2013-12-12 18:40:48
    总结了vb语言读取txt文件的各种方法,不是很完善,供各位亲们参考
  • 怎么用VBTXT格式的数据文件导入EXCEL表中.doc
  • vbtxt导入到excel

    2011-07-19 19:33:06
    怎么用vbtxt导入到excel的方法介绍
  • 有的数据是由TXT保存的,但是用MATLAB处理数据不太方便,就可用这个
  • 使用vb6读取文本,存入access数据库,生成EXCEL报表
  • Excel VBA 导入txt文件内容

    千次阅读 2020-04-14 15:56:16
    '根据sheet1第一列的文件名导入txt文件的内容到之后的sheet中,每个文件一个sheet Dim file_name As String, my_path As String Dim lines, cols Dim i As Integer, j As Integer, k As Integer, q As Integer...
    Sub import_from_txt()
    '根据sheet1第一列的文件名导入txt文件的内容到之后的sheet中,每个文件一个sheet
        Dim file_name As String, my_path As String
        Dim lines, cols
        Dim i As Integer, j As Integer, k As Integer, q As Integer, n As Integer
    
        Application.ScreenUpdating = False
        
        my_path = ThisWorkbook.Path
        n = 1
        Do While ThisWorkbook.Sheets("content").Cells(n, 1).Value <> ""
            file_name = Worksheets("content").Cells(n, 1).Value
            '读取文件
            Open my_path & "\" & file_name For Input As #1
            lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
            Close #1
            k = UBound(lines) + 1 '文件的行数
            '遍历每一行
            Sheets.Add After:=Worksheets(n)
            For i = 1 To k
                cols = Split(lines(i - 1), Chr(9)) '以tab作为分隔,将每行字符分割,分隔符可根据实际情况自己修改
                q = UBound(cols) + 1 '分隔成的列数
                For j = 1 To q '遍历该行的每一列
                    Worksheets(n + 1).Cells(i, j) = cols(j - 1) '输出到表格中
                Next
            Next
            n = n + 1
        Loop
          
        Application.ScreenUpdating = True
    End Sub
    
    展开全文
  • VB中如何将MSFlexGrid数据导入到Excel中.txt
  • vb读取txt文件到textbox (一)

    千次阅读 2012-01-19 13:52:54
    vb读取txt文件到textbox (一) 2011年05月10日  1.怎么通过代码创建一个文本文件,并读取,更新内容  以上为随即方式打开的文本文件  dim gfilenum as integer  gfilenum = FreeFile  Open "文件...
    vb读取txt文件到textbox (一) 
    
    2011年05月10日
      1.怎么通过代码创建一个文本文件,并读取,更新内容
      以上为随即方式打开的文本文件
      dim gfilenum as integer
      gfilenum = FreeFile
      Open "文件路径及文件名" For Random As gfilenum len=3
      \'以随即方式打开一文件如果文件不存在就新建
      用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作
      用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作
      close #filenum\'关闭文件
      以下为顺序方式打开的文件
      dim gfilenum as integer
      gfilenum = FreeFile
      Open "文件路径及文件名" For output As gfilenum \'以写入方式打开文本
      print #gfilenum,要写入的文本
      write #filenumber,要写入的文本
      dim gfilenum as integer
      gfilenum = FreeFile
      Open "文件路径及文件名" For input As gfilenum \'以读出方式打开文本
      input #gfilenum ,用来放读取的内容的内存变量名
      还可用line input#,input()等读取更详细的查msdn
      [b]2.VB[/b][b]读取文本文件时,调用[/b][b]TextStream [/b][b]对象中使用[/b][b]OpenTextFile[/b][b]报错了。[/b][b][/b]
      如果是
      Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)
      出现错误:
      Run-time error \'5\':
      Invalid procedure call or argument
      如果是
      Set f = fs.OpenTextFile("E:\\table\\trace.txt)"
      则不会报错。
      用文件对象啊FileSystemControl操作就好了啊
      再加上一个TextStream读取文件第一行就好了啊。
      3.VB通过FileSystemObject,可以读取文本文件(.txt)。对于.bat文件,VB可否直接读取?
      bat也属于文本类文件
      可以读取
      不用FSO也行:
      把文本文件内容读取TextBox:
      Dim TempFile As Long
      Dim LoadBytes() As Byte
      TempFile=FreeFile
      Open 文件名 For Binary As #TempFile
      Redim LoadBytes(1 To Lof(TempFile)) As Byte
      Get #TempFile,,LoadBytes
      Close TempFile
      Text1.Text=StrConv(LoadBytes,vbUniCode)
      把TextBox内容写入文本文件:
      Dim TempFile As Long
      Dim SaveBytes() As Byte
      SaveBytes=StrConv(Text1.Text,vbFromUniCode)
      TempFile=FreeFile
      Open 文件名 For Binary As #TempFile
      Put #TempFile,,SaveBytes
      Close TempFile
      [b]4.[/b][b]打开文本文件[/b][b] [/b]
      open app.path &"/你的文本文件名.txt" for output as #1
      Message.Name=text1.text
      Message.Phone=text2.text
      .......................
      message.PostCode=text5.text
      Put #1,i,Message \'(此处i=1,如要多次写入,可用循环设置i的值)
      close #1
      \'写入的同时即已保存
      查询的话就取出文本里的内容,用instr()函数就可实现了
      [b]5.[/b][b]查找[/b][b]vbCrLf[/b][b]、[/b][b]vbLf[/b][b]换行标记[/b][b][/b]
      [b]6.[/b][b]怎样读取一个文本文件的全部内容[/b][b][/b]
      dim lenfile as integer
      dim filenum as integer
      filenum=freefile()
      open "file.dat" for input as filenum
      lenfile=lof(#filenum)
      strfile=input(lenfile,#filenum)\'将所有数据放入变量strfile中
      close filenum
      Private Sub Form_Load()
      Const ForReading = 1, ForWriting = 2
      Dim fso, f
      Dim SkipLineInFile As String
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, True)
      f.Write "Hello world!" & vbCrLf & "VB Script is fun!"
      Set f = fso.OpenTextFile("c:\\testfile.txt", ForReading)
      SkipLineInFile = f.readall
      Debug.Print SkipLineInFile
      End Sub
      [b]7.[/b][b]把文本文件内容读取[/b][b]TextBox[/b][b]:[/b][b][/b]
      Dim TempFile As Long
      Dim LoadBytes() As Byte
      TempFile=FreeFile
      Open 文件名 For Binary As #TempFile
      Redim LoadBytes(1 To Lof(TempFile)) As Byte
      Get #TempFile,,LoadBytes
      Close TempFile
      Text1.Text=StrConv(LoadBytes,vbUniCode)
      [b]8. [/b][b]把[/b][b]TextBox[/b][b]内容写入文本文件:[/b][b][/b]
      Dim TempFile As Long
      Dim SaveBytes() As Byte
      SaveBytes=StrConv(Text1.Text,vbFromUniCode)
      TempFile=FreeFile
      Open 文件名 For Binary As #TempFile
      Put #TempFile,,SaveBytes
      Close TempFile
      [b]9.[/b][b]已知文本文件,要从中搜索一段特定的字符串信息。如搜索[/b][b][MAGIC_DATABASES],[/b][b]该怎么做[/b][b]?[/b]
      dim str as string
      open commondialog1.filename for input #1
      input #1, str
      dim where as integer
      where = instr(str,"magic_databases")
      10.
      Line Input # 语句示例
      本示例使用 Line Input # 语句从顺序文件中读入一行数据,并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。
      Dim TextLine
      Open "TESTFILE" For Input As #1 \' 打开文件。
      Do While Not EOF(1) \' 循环至文件尾。
      Line Input #1, TextLine \' 读入一行数据并将其赋予某变量。
      Debug.Print TextLine \' 在立即窗口中显示数据。
      Loop
      Close #1 \' 关闭文件。
      [b]11.[/b][b]如何操作[/b][b]“[/b][b]文本文件[/b][b]”[/b]
      fso(Filesystemobject)对象集中的文件集合里有readline方法。
      Dim of As Object
      Dim fs as Object
      dim TextLine as string
      Set fs=createobject("scripting.Filesystemobject")
      set of=fs.OpenTextFile(app,path+"\\myfile.aaa")
      //myfile.aaa 是一个文本文件
      textling=of.readline
      //如果你要读取第14行,可以用一个循环,跳过前面的13行,如下
      dim lop as integer
      for lop=0 to 12
      of.skip
      next
      //然后再读取
      [b]12.[/b][b]搜索了一下,大家主要用两种方法对文本文件加密。[/b][b][/b]
      1.对文本文件的ASC码加减
      2.用XOR函数
      我发现都有问题举例
      1.代码
      Public Function nnnn(ByVal s As String) As String \'解密
      On Error Resume Next
      Dim ss As String, i As Byte, lens As Byte
      lens = Len(s)
      For i = 1 To lens
      ss = ss & Chr(Asc(Mid(s, i, 1)) - lens - i)
      Next
      nnnn = ss
      End Function
      Public Function mmmm(ByVal s As String) As String \'加密
      On Error Resume Next
      Dim ss As String, i As Byte, lens As Byte
      lens = Len(s)
      For i = 1 To lens
      ss = ss & Chr(Asc(Mid(s, i, 1)) + lens + 1)
      Next
      mmmm = ss
      End Function
      当文件中有“!~”时出错
      XOR加密
      Dim I as long
      For I=1 To UBound(LoadBytes)
      LoadBytes(I)=LoadBytes(I) Xor &HFF
      Next I
    展开全文
  • Private Sub CommandButton1_Click()'按钮触发, ... fileToOpen = Application.GetOpenFilename("请选文本(*.txt), *.txt", , "导入逗号分隔文本") '选择txt把路径给fileToOpen '判断路径的正确性 If fileToO...

    Private Sub CommandButton1_Click()
    '按钮触发,

    '按钮触发,目前支持ASNI文本的数据, 单行

    fileToOpen = Application.GetOpenFilename("请选文本(*.txt), *.txt", , "导入逗号分隔文本")
    '选择txt把路径给fileToOpen
    '判断路径的正确性
    If fileToOpen = False Then
    MsgBox "错误路径" & Chr(13) & "请重新选择"

    End If
    '定义s
    Dim s As String
    Dim tt As Long
    tt = Range("A1").Value
    Range("B1").Value = tt
    'chr(65)为A
    Range(Chr(65) & tt).Select


    ' With对某个对象执行一系列的语句,ActiveSheet活动表中,QueryTables集合体,add添加,---Connection链接,TEXT,fileToOpen路径值,Destination写入到表格变量Range(Chr(65) & tt))


    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range(Chr(65) & tt))

    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 936
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
    End With

    End Sub

     

    语法
    Chr(charcode)
    charcode为各类字符的ASCII码
    
    在ASP脚本字符串中不能识别、无法标识或与该语法产生冲突的字符,可用“chr(相应ASCII码)”来表达,
    本函数也可称为ASP程序中的转义符。
    
    用法:
    比如“ASP中字符串替换”
    将media_span_url("index.html")替换为<br>
    wstr=Replace(wstr,"media_span_url"&chr(40)&chr(34)&"index.html"&chr(34),"<br>")
    如果在上述字符串中直接输入“括号()”,则将与表达式中的“括号”产生冲突。
    使用chr()语法,对asp字符串中“括号()”进行转义,即可轻松解决该问题。
    
    chr()转义字符对照表
      
      Chr("0") 为0的字符
    
      Chr("1") 
    
      Chr("2") 
    
      Chr("3") 
    
      Chr("4") 
    
      Chr("5") 
    
      Chr("6") 
    
      Chr("7") 响铃
    
      Chr("8") 回格
    
      Chr("9") tab(水平制表符)
    
      Chr("10") 换行
    
      Chr("11") tab(垂直制表符)
    
      Chr("12") 换页
    
      Chr("13") 回车 chr(13)&chr(10) 回车和换行的组合
    
      Chr("14") 
    
      Chr("15") 
    
      Chr("16") 
    
      Chr("17") 
    
      Chr("18") 
    
      Chr("19") 
    
      Chr("20") 
    
      Chr("21") 
    
      Chr("22") 
    
      Chr("23") 
    
      Chr("24") 
    
      Chr("25") 
    
      Chr("26") 结束 End
    
      Chr("27") 脱离 Pause break
    
      Chr("28") 
    
      Chr("29") 
    
      Chr("30") 
    
      Chr("31") 
    
      Chr("32") 空格 SPACE
    
      Chr("33") !
    
      Chr("34") "
    
      Chr("35") #
    
      Chr("36") $
    
      Chr("37") %
    
      Chr("38") &
    
      Chr("39") ’
    
      Chr("40") 左括号转义 (
    
      Chr("41") 右括号转义 ) 
    
      Chr("42") * 
    
      Chr("43") +
    
      Chr("44") ,
    
      Chr("45") - 
    
      Chr("46") .
    
      Chr("47") /
    
      Chr("48") 0 
    
      Chr("49") 1
    
      Chr("50") 2
    
      Chr("51") 3
    
      Chr("52") 4 
    
      Chr("53") 5
    
      Chr("54") 6
    
      Chr("55") 7
    
      Chr("56") 8
    
      Chr("57") 9 
    
      Chr("58") :
    
      Chr("59") ;
    
      Chr("60") <
    
      Chr("61") =
    
      Chr("62") > 
    
      Chr("63") ?
    
      Chr("64") @
    
      Chr("65") A 
    
      Chr("66") B
    
      Chr("67") C 
    
      Chr("68") D
    
      Chr("69") E
    
      Chr("70") F
    
      Chr("71") G
    
      Chr("72") H 
    
      Chr("73") I
    
      Chr("74") J
    
      Chr("75") K
    
      Chr("76") L
    
      Chr("77") M 
    
      Chr("78") N
    
      Chr("79") O
    
      Chr("80") P
    
      Chr("81") Q
    
      Chr("82") R 
    
      Chr("83") S
    
      Chr("84") T
    
      Chr("85") U
    
      Chr("86") V
    
      Chr("87") W 
    
      Chr("88") X
    
      Chr("89") Y
    
      Chr("90") Z 
    
      Chr("91") [
    
      Chr("92") \ 
    
      Chr("92") \
    
      Chr("93") ]
    
      Chr("94") ^
    
      Chr("95") _
    
      Chr("96") `
    
      Chr("97") a 
    
      Chr("98") b
    
      Chr("99") c
    
      Chr("100") d
    
      Chr("101") e
    
      Chr("102") f 
    
      Chr("103") g
    
      Chr("104") h
    
      Chr("105") i
    
      Chr("106") j
    
      Chr("107") k 
    
      Chr("108") l
    
      Chr("109") m
    
      Chr("110") n
    
      Chr("111") o
    
      Chr("112") p 
    
      Chr("113") q
    
      Chr("114") r
    
      Chr("115") s
    
      Chr("116") t
    
      Chr("117") u 
    
      Chr("118") v
    
      Chr("119") w
    
      Chr("120") x
    
      Chr("121") y
    
      Chr("122") z 
    
      Chr("123") {
    
      Chr("124") |
    
      Chr("125") }
    
      Chr("126") ~
    
      Chr("127") 
    
      Chr("128") 
    
      Chr("129") 
    
      Chr("130") 
    
      Chr("131") 
    
      Chr("132")
    

      

    转载于:https://www.cnblogs.com/--3q/p/7170583.html

    展开全文
  • VB中如何读取txt文件的数据

    万次阅读 2007-08-23 13:06:00
    Dim A, S As String Dim FreeNum As Integer FreeNum = FreeFile Freenum表示一个空闲的文件号 open "D:/date.txt" for input as #FreeNum 这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。...
    Dim A, S As String

    Dim FreeNum As Integer
    FreeNum = FreeFile
    'Freenum表示一个空闲的文件号
    open "D:/date.txt" for input as #FreeNum
    '这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或append。

    Do Until eof(FreeNum) '循环,直到文件结尾。Eof函数用来判断文件是否读完
    Line Input #FreeNum, A
    S = S + vbNewLine + A 'S用来保存整个文件
    If A满足某个条件 And Not Eof(FreeNum) Then
    Line Input #FreeNum, A '读取下一行的内容
    Exit do '退出循环
    End if
    Loop
    Close FreeNum


    至于将一个新值写进第N行,则可以
    Dim A, S, S1 As String

    Dim FreeNum As Integer
    FreeNum = FreeFile
    'Freenum表示一个空闲的文件号
    open "D:/date.txt" for input as #FreeNum
    '这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或append。

    Do Until eof(FreeNum) '循环,直到文件结尾。Eof函数用来判断文件是否读完
    Line Input #FreeNum, A
    S1 = S1 + vbNewLine + A 'S用来保存1到n-1行的内容,S1用来表示n行以后的内容
    If A满足新写一行的条件 Then
    S = S1
    S1 = ""
    End if
    Loop

    Close FreeNum
    Open "D:/date.txt" For Output As FreeNum
    '关闭文件之后重新以Output的模式打开。
    Print #FreeNum, S
    Print #FreeNum, 新插入一行的内容
    Print #FreeNum, S1
    Close FreeNum
    即可
     
    展开全文
  • 可以将一般的txt文档导入到数据库或是Datagridview,导出到其它的文档可以自己修改一下代码
  • 内容索引:VB源码,报表打印,报表导入 以前帮朋友做的,财政局数据下发并生成报表,然后下发到各分局再进行导入VB代码实现,中转出的数据格式主要是TXT文本文件,对于初学文本控制和EXCEL报表导出的有一定帮助,...
  • datagridview导入导出txt(VS2010)
  • 功能:模拟将外部数据导入数据库。 模型:简化各字段只有人员编号,姓名,口令,性别住址。每个人的信息为单独的TXT文件. 方法:读取文件按字段将数据插入到相应表的对应字段中。 图示:设计表结构及完成情况
  • VB将数据库导出到TXT文本文件中

    热门讨论 2010-11-29 13:40:52
    VB将数据库导出到TXT文本文件中,注意一般文件路径正确的话,就可以顺利导出成功
  • 我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下: 1111 222 222 333 333 444 接着我们进行文件的读取,并且写入到Excel中,代码如下: ... a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCr
  • "数据正在导出......" exlapp.Visible = True exlapp.DisplayAlerts = False Dim exlsheet As Excel.Worksheet Set exlsheet = exlbook.Worksheets.Add exlsheet.Activate Set exlsheet = exlsheet exlsheet....
  • 摘要:VB源码,数据库应用,向导,数据库  VB编程实现利用向导把文本文件导入到数据库中,选择不同的分隔符,观察生成的字段有什么变化,选择好数据源和目标库,自动修改不正确的字段名(&A),你可以指定导入的字段...
  • oracle学习-- 批量导入txt文件

    千次阅读 2019-01-03 11:17:37
    现在有表 vb_04; SQL&gt; desc vb_04; Name Type Nullable Default Comments  ------------------ ------------- -------- ------- --------  CHANNL_NUM VARCHAR2(20) Y ...
  • Sqlserver批量导入数据的示例(SqlBulkCopy),有示例解决方案和说明。
  • VB数据导入Excel文件中

    千次阅读 2005-09-09 00:45:00
    VB数据导入Excel文件中 Excel 是一个非常优秀的报表制作软件,用VBA可以控制其生成优秀的报表,本文通过添加查询语句的方法,即用Excel中的获取外部数据的功能将数据很快地从一个查询语句中捕获到EXCEL中,比起往...
  • 通过单击按钮,文本中的信息将自动写入OLE的表格中
  • Access和VB或者VBA是很让人困惑的技术 原因主要是微软提供的MSDN或者说明文档实在是太难用了,简单的说,一个这么大的公司,网上提供的说明文档,内容少,中英文混杂,无法有效的通过baidu检索到,它自身的检索也...
  • 数据导出到Excel的6种方法(VB6)

    千次阅读 2020-02-12 12:48:04
    数据导出到Excel的6种方法(VB6) 在数据操作中,特别是与数据库相关的操作中,我们需要经常导出数据到Excel表格中,下面我们提供了六种方式来将数据导出到Excel表格中: 如果大家C币比较多的话,可以直接下载我整理好...
  • 1,通过PLSQL手动复制粘贴到ORACLE数据表中;...注:当然了,有的时候可能用户提供的不是EXCEL,是 .CSV、 .TXT等等格式,可以考虑先将其转换或者导入到EXCEL中,然后进行相关操作,或者直接操作。 ------------...
  • vba 导入 TXT 到 access

    千次阅读 2013-04-21 16:48:11
    导入TXT,是需要导入规格的,而这个导入规格是怎么来的呢?其实很简单,请看以下图 然后就选择高级~!! 这个就是导入规格了! 然后就这个规格另存为 “XXX”,如“TXT_Upload” 好了,这样...
  • ", vbYesNoCancel + vbExclamation, "VB 保存数据到中 Excel") If X = 6 Then '单击“是”则保存 Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Workbooks.Add With ExcelApp.ActiveSheet ....
  • fin=fopen(['1.txt'],'r'); if fin&gt;0 fout=fopen(['2.txt'],'w'); end while ~feof(fin) % 函数feof(fid)用法:文件指针 fid 到达文件末尾时返回“真”值;否则返回“假”; % while ~feof 表示 若 未读...
  • Sub updata_Close_Inquiry() 'stable 要导入的表,Inquiry为临时表,存放即将导入数据,并在Inquiry表中进行格式转换 Dim ds As String Dim i, j Dim ss = 0 ds = "" For i = LBound(arr) + 1 To
  • (此页是AJAX异步提交txt文本文件的路径到ajax_txt_save.asp页面,并从ajax_txt_save.asp获取返回的数据) <!DOCTYPE ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,484
精华内容 993
关键字:

vb导入txt数据