51Testing软件测试论坛

标题: vbs读取文本文件的问题，急 [打印本页]
作者: wsx63    时间: 2011-6-1 13:36
标题: vbs读取文本文件的问题，急
我这里有一个文本文件，大概内容和格式如下：
  1. lang=en

  3. ####
  4. a=1

  6. b=2
  7. c=3
复制代码
我想取=号两边的内容，但是文件里有空格行也有其它不相关的行
我用readline似乎无法办到，请大家帮个忙，谢谢了啊
作者: 17800455    时间: 2011-6-1 18:15


  3. '*************************Rfile()**************************
  4. ' 功能概述:读文件内容
  5. ' 传入参数:1>FPath文件路径
  6. '                   2>intVal值为0取等号左边,1取等号右边
  7. ' 返 回 值:返回数组
  8. ' 调用举例:1>tmpAry = Rfile("c:\test.txt",0)
  9. '                   2>tmpAry = Rfile("c:\test.txt",1)
  10. '***********************************************************
  11. Public Function Rfile(FPath,intVal)

  13.         Set fso = CreateObject("Scripting.FileSystemObject")
  14.         
  15.         If fso.FileExists(FPath) Then

  17.                 Set fopen = fso.OpenTextFile(Fpath,1)
  18.         
  19.                 While Not fopen.AtEndOfStream
  20.                
  21.                         RC = fopen.ReadLine
  22.                         
  23.                         If Left(RC,1) <> "" Then
  24.                         
  25.                                 tmparry = Split(RC,"=",-1,1)
  26.                         
  27.                                 ReDim Preserve tmpAry1(i)
  28.                                 
  29.                                 tmpAry1(i) = tmparry(CInt(intVal))
  30.                                 
  31.                                 i = i + 1
  32.                         
  33.                         End if
  34.                
  35.                 Wend
  36.                
  37.                 fopen.Close
  38.                
  39.         End If
  40.         
  41.         Rfile = tmpAry1

  43.         Set fso = nothing


  46. End Function

复制代码


要下班了就没有进行测试...........
作者: gezhirong    时间: 2011-6-2 00:19
  1. Function TxtReadLines(txtPath,delimiter)
  2. Dim objDictionary,objFso,objTxtFile
  3. Dim strReadLine,splitReadLine
  4. Dim lineCount
  5. Set objDictionary=CreateObject("Scripting.Dictionary")
  6. Set objFso=CreateObject("Scripting.FileSystemObject")
  7. Set objTxtFile=objFso.OpenTextFile(txtPath,1,true)
  8. Do while not(objTxtFile.AtEndOfStream)
  9. strReadLine=objTxtFile.ReadLine
  10. objTxtFile.SkipLine
  11. If instr(strReadLine,delimiter)>0 Then
  12. lineCount=lineCount+1
  13. splitReadLine=split(strReadLine,delimiter)
  14. objDictionary.Add "left"&cstr(lineCount),trim(splitReadLine(0))
  15. objDictionary.Add "right"&cstr(lineCount),trim(splitReadLine(1))
  16. End If
  17. loop
  18. Set objTxtFile=nothing
  19. Set objFso=nothing
  20. Set TxtReadLines=objDictionary
  21. Set objDictionary=nothing
  22. End Function
  23. '传递文件的路径和分隔符，比如你说的等号
  24. Set txtDic=TxtReadLines("d:\text.txt","=")
  25. For i=1 to txtDic.count/2
  26. '等号左边的值
  27. msgbox txtDic.Item("left"&cstr(i))
  28. '等号右边的值
  29. msgbox txtDic.Item("right"&cstr(i))
  30. Next
复制代码
作者: gezhirong    时间: 2011-6-2 00:19
Function TxtReadLines(txtPath,delimiter)
        Dim objDictionary,objFso,objTxtFile
        Dim strReadLine,splitReadLine
        Dim lineCount
        Set objDictionary=CreateObject("Scripting.Dictionary")
        Set objFso=CreateObject("Scripting.FileSystemObject")
        Set objTxtFile=objFso.OpenTextFile(txtPath,1,true)
        Do while not(objTxtFile.AtEndOfStream)
                strReadLine=objTxtFile.ReadLine
                objTxtFile.SkipLine
                If instr(strReadLine,delimiter)>0 Then
                        lineCount=lineCount+1
                        splitReadLine=split(strReadLine,delimiter)
                        objDictionary.Add "left"&cstr(lineCount),trim(splitReadLine(0))
                        objDictionary.Add "right"&cstr(lineCount),trim(splitReadLine(1))
                End If
        loop
        Set objTxtFile=nothing
        Set objFso=nothing
        Set TxtReadLines=objDictionary
        Set objDictionary=nothing
End Function
'传递文件的路径和分隔符，比如你说的等号
Set txtDic=TxtReadLines("d:\text.txt","=")
For i=1 to txtDic.count/2
'等号左边的值
msgbox txtDic.Item("left"&cstr(i))
'等号右边的值
msgbox txtDic.Item("right"&cstr(i))
Next
作者: gezhirong    时间: 2011-6-2 00:20
  1. Function TxtReadLines(txtPath,delimiter)
  2. Dim objDictionary,objFso,objTxtFile
  3. Dim strReadLine,splitReadLine
  4. Dim lineCount
  5. Set objDictionary=CreateObject("Scripting.Dictionary")
  6. Set objFso=CreateObject("Scripting.FileSystemObject")
  7. Set objTxtFile=objFso.OpenTextFile(txtPath,1,true)
  8. Do while not(objTxtFile.AtEndOfStream)
  9. strReadLine=objTxtFile.ReadLine
  10. objTxtFile.SkipLine
  11. If instr(strReadLine,delimiter)>0 Then
  12. lineCount=lineCount+1
  13. splitReadLine=split(strReadLine,delimiter)
  14. objDictionary.Add "left"&cstr(lineCount),trim(splitReadLine(0))
  15. objDictionary.Add "right"&cstr(lineCount),trim(splitReadLine(1))
  16. End If
  17. loop
  18. Set objTxtFile=nothing
  19. Set objFso=nothing
  20. Set TxtReadLines=objDictionary
  21. Set objDictionary=nothing
  22. End Function
  23. '传递文件的路径和分隔符，比如你说的等号
  24. Set txtDic=TxtReadLines("d:\text.txt","=")
  25. For i=1 to txtDic.count/2
  26. '等号左边的值
  27. msgbox txtDic.Item("left"&cstr(i))
  28. '等号右边的值
  29. msgbox txtDic.Item("right"&cstr(i))
  30. Next
复制代码
作者: gezhirong    时间: 2011-6-2 00:21
Function TxtReadLines(txtPath,delimiter)
        Dim objDictionary,objFso,objTxtFile
        Dim strReadLine,splitReadLine
        Dim lineCount
        Set objDictionary=CreateObject("Scripting.Dictionary")
        Set objFso=CreateObject("Scripting.FileSystemObject")
        Set objTxtFile=objFso.OpenTextFile(txtPath,1,true)
        Do while not(objTxtFile.AtEndOfStream)
                strReadLine=objTxtFile.ReadLine
                objTxtFile.SkipLine
                If instr(strReadLine,delimiter)>0 Then
                        lineCount=lineCount+1
                        splitReadLine=split(strReadLine,delimiter)
                        objDictionary.Add "left"&cstr(lineCount),trim(splitReadLine(0))
                        objDictionary.Add "right"&cstr(lineCount),trim(splitReadLine(1))
                End If
        loop
        Set objTxtFile=nothing
        Set objFso=nothing
        Set TxtReadLines=objDictionary
        Set objDictionary=nothing
End Function
'传递文件的路径和分隔符，比如你说的等号
Set txtDic=TxtReadLines("d:\text.txt","=")
For i=1 to txtDic.count/2
'等号左边的值
msgbox txtDic.Item("left"&cstr(i))
'等号右边的值
msgbox txtDic.Item("right"&cstr(i))
Next
作者: 43528782    时间: 2011-6-2 09:27
顶~
作者: gezhirong    时间: 2011-6-2 09:35
  1. Function TxtReadLines(txtPath,delimiter)
  2. Dim objDictionary,objFso,objTxtFile
  3. Dim strReadLine,splitReadLine
  4. Dim lineCount
  5. Set objDictionary=CreateObject("Scripting.Dictionary")
  6. Set objFso=CreateObject("Scripting.FileSystemObject")
  7. Set objTxtFile=objFso.OpenTextFile(txtPath,1,true)
  8. Do while not(objTxtFile.AtEndOfStream)
  9. strReadLine=objTxtFile.ReadLine

  11. If instr(strReadLine,delimiter)>0 Then
  12. lineCount=lineCount+1
  13. splitReadLine=split(strReadLine,delimiter)
  14. objDictionary.Add "left"&cstr(lineCount),trim(splitReadLine(0))
  15. objDictionary.Add "right"&cstr(lineCount),trim(splitReadLine(1))
  16. End If
  17. loop
  18. Set objTxtFile=nothing
  19. Set objFso=nothing
  20. Set TxtReadLines=objDictionary
  21. Set objDictionary=nothing
  22. End Function
  23. '传递文件的路径和分隔符，比如你说的等号
  24. Set txtDic=TxtReadLines("d:\text.txt","=")
  25. For i=1 to txtDic.count/2
  26. '等号左边的值
  27. msgbox txtDic.Item("left"&cstr(i))
  28. '等号右边的值
  29. msgbox txtDic.Item("right"&cstr(i))
  30. Next

复制代码
作者: wsx63    时间: 2011-6-2 09:43
今天看到了，谢谢大家，非常感谢
作者: wendy.wang    时间: 2011-6-7 13:29
学习学习学习



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2