5
txt 파일에서 "Test Case"문자열 &을 찾아야합니다.VBS 스크립트를 사용하여 텍스트 파일에서 특정 문자열 찾기
<tr><td><a href="../../Login/Log_ in_U1A1">Log_ in_U1A1</a></td></tr>
<tr><td><a href="../Test case 5 DD/Form1">Form1</a></td></tr>
당신은 내가 문자열 "테스트 케이스"의 발생이 두 번째 줄에서 볼 수 있듯이 :
나는 당신에게 당신이이 파일에서 찾을 수있는 라인의 예를 제공합니다.
내가하고 싶은 일은 "Test Case 5"가 나타나는 행 앞에 다른 특정 문자열을 추가하는 것입니다. 예를 들어 :
<tr><td><a href="../../Login/Log_ in_U1A1">Log_ in_U1A1</a></td></tr>
<tr><td><a href="../../Logs/DD/Beginning_of_DD_TC5.html">Beginning_of_DD_TC5</a></td></tr>
<tr><td><a href="../Test case 5 DD/Form1">Form1</a></td></tr>
내가 추가 라인은 테스트 케이스의 수에 따라 달라집니다 내가, 내가 & 내가, 내가 그나마 "테스트 케이스"의 첫 번째 발생 전에 추가해야 인덱스를 가지고도 중요 다음 사건에주의하십시오. InStr이 기능은 예를 들어 함께 일 경우
나는 시험 :Dim objFSO, filepath, objInputFile, tmpStr, substrToFind
Set objFSO = CreateObject("Scripting.FileSystemObject")
filepath = "C:\VBS\filediprova.txt"
substrToFind = "<tr><td><a href=" & chr(34) & "../Test case 5"
Set objInputFile = objFSO.OpenTextFile(filepath)
tmpStr = objInputFile.ReadLine
If InStr(tmpStr, substrToFind) <= 0 Then
WScript.Echo "No matches"
Else
WScript.Echo "Found match"
End If
을 그리고 그것은 내 문자열을 인식, 작동합니다. 내가 같은 InStr이 기능을 사용하여, 나는 몇 가지 문제가 훨씬 더 라인 파일을 통해 루프를 시도 할 때, 이제
<tr><td><a href="../Test case 5 DD/Form1">Form1</a></td></tr>
:이 작은 예에서 txt 파일은 아래 행을 contans.
Do until objInputFile.AtEndOfStream
strToAdd = "<tr><td><a href=" & chr(34) & "../../Logs/DD/Beginning_of_DD_TC" & CStr(index) & ".html" & chr(34) & ">Beginning_of_DD_TC" & CStr(index) & "</a></td></tr>"
substrToFind = "<tr><td><a href=" & chr(34) & "../Test case " & index
firstStr = "<?xml version" 'my file always starts like this
tmpStr = objInputFile.ReadLine
If InStr(tmpStr, substrToFind) <= 0 Then
If Instr(tmpStr, firstStr) > 0 Then
text = tmpStr 'to avoid the first empty line
Else
text = text & vbCrLf & tmpStr
End If
Else
text = text & vbCrLf & strToAdd & vbCrLf & tmpStr
index = index + 1
End If
Loop
문제점은 무엇입니까 : 나는 다음과 같은 루프를 썼다?
을 기대하고있어 결과이지만, 나는 어디에서부터 시작해야할지 몰랐다. 그들은 나에게 아람어처럼 보인다! 비록 내가 자바와 시각적 인 기초를 알고 있지만 나는 그들을 사용하여 결코 감히하지 않았다. 나는이 가능성을 고려할 것이지만 정규 표현식에 대한 튜토리얼 (인형 용)에 대한 좋은 링크를 줄 수 있습니까? – Luceye85
[this] (http://www.codeproject.com/Articles/939/An-Introduction-to- Regular-Expressions) 및 물론 [documentation] (http://msdn.microsoft.com/en/ -us/library/6wzad2b2). –