设为首页收藏本站
开启辅助访问 软件测试门户软件测试培训软件测试论坛测试解决方案文章资料精选软件测试博客软件测试招聘

51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步，快速开始

微信登录，快人一步

手机号码，快捷登录

51Testing软件测试论坛 »软件测试论坛 › [管理工具] › [自动化测试工具及框架] › [QuickTest Professional] › vbs读取文本文件的问题，急
返回列表 发新帖
查看: 2094|回复: 9
打印 上一主题 下一主题

[原创] vbs读取文本文件的问题，急

[复制链接]
wsx63

该用户从未签到
跳转到指定楼层
1#
发表于 2011-6-1 13:36:58 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我这里有一个文本文件，大概内容和格式如下：
  1. lang=en

  3. ####
  4. a=1

  6. b=2
  7. c=3
复制代码
我想取=号两边的内容，但是文件里有空格行也有其它不相关的行
我用readline似乎无法办到，请大家帮个忙，谢谢了啊
文本文件
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
微信
收藏收藏

相关帖子

【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
回复

使用道具 举报

17800455
  • TA的每日心情
    开心
    2018-7-13 14:04

    • 签到天数: 6 天

    连续签到: 1 天

    [LV.2]测试排长
    2#
    发表于 2011-6-1 18:15:00 | 只看该作者


    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

    该用户从未签到
    3#
    发表于 2011-6-2 00:19:22 | 只看该作者
    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
    复制代码
    【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
    回复 支持 反对

    使用道具 举报

    gezhirong

    该用户从未签到
    4#
    发表于 2011-6-2 00:19:39 | 只看该作者
    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

    该用户从未签到
    5#
    发表于 2011-6-2 00:20:10 | 只看该作者
    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

    该用户从未签到
    6#
    发表于 2011-6-2 00:21:24 | 只看该作者
    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
    【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
    回复 支持 反对

    使用道具 举报

    43528782

    该用户从未签到
    7#
    发表于 2011-6-2 09:27:57 | 只看该作者
    顶~
    回复 支持 反对

    使用道具 举报

    gezhirong

    该用户从未签到
    8#
    发表于 2011-6-2 09:35:59 | 只看该作者
    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

    该用户从未签到
    9#
     楼主| 发表于 2011-6-2 09:43:42 | 只看该作者
    今天看到了，谢谢大家，非常感谢
    【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
    回复 支持 反对

    使用道具 举报

    wendy.wang

    该用户从未签到
    10#
    发表于 2011-6-7 13:29:05 | 只看该作者
    学习学习学习
    回复 支持 反对

    使用道具 举报

    返回列表 发新帖

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 )  关于我们

    GMT+8, 2024-11-20 01:42 , Processed in 0.068382 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表