Find specific string in a text file with VBS script

Question

I need to find the string  Test Case    amp   index in a txt file   I give you an example of the lines you can find in this file    lt tr gt  lt td gt  lt a href        Login Log  in U1A1  gt Log  in U1A1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt    As you can see in the second line I have an occurrence of the string  Test Case     What I want to do is to add another particular string in the line which preceeds the one where  Test Case 5  appears  For example    lt tr gt  lt td gt  lt a href        Login Log  in U1A1  gt Log  in U1A1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Logs DD Beginning of DD TC5 html  gt Beginning of DD TC5 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt    It s also important that the line I add has an index i which depends on the Test Case number  and i need to add it before the first occurrence of  Test Case   amp  i  i dont care about the following occurrences   I tested if InStr function worked with an example   Dim objFSO  filepath  objInputFile  tmpStr  substrToFind Set objFSO   CreateObject  Scripting FileSystemObject   filepath    C  VBS filediprova txt  substrToFind     lt tr gt  lt td gt  lt a href    amp  chr 34   amp      Test case 5  Set objInputFile   objFSO OpenTextFile filepath  tmpStr   objInputFile ReadLine If InStr tmpStr  substrToFind   lt   0 Then    WScript Echo  No matches  Else    WScript Echo  Found match  End If   And it works  it recognizes my substring  In this small example the txt file only contans the followingline    lt tr gt  lt td gt  lt a href     Test case 5 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt    Now  when I try to loop over a file with much more lines I have some problem  I use the same InStr function  I wrote the following loop   Do until objInputFile AtEndOfStream    strToAdd     lt tr gt  lt td gt  lt a href    amp  chr 34   amp         Logs DD Beginning of DD TC   amp  CStr index   amp    html   amp  chr 34   amp    gt Beginning of DD TC   amp  CStr index   amp    lt  a gt  lt  td gt  lt  tr gt      substrToFind     lt tr gt  lt td gt  lt a href    amp  chr 34   amp      Test case    amp  index    firstStr     lt  xml version   my file always starts like this    tmpStr   objInputFile ReadLine    If InStr tmpStr  substrToFind   lt   0 Then        If Instr tmpStr  firstStr   gt  0 Then           text   tmpStr  to avoid the first empty line        Else           text   text  amp  vbCrLf  amp  tmpStr        End If    Else       text   text  amp  vbCrLf  amp  strToAdd  amp  vbCrLf  amp  tmpStr       index   index   1    End If Loop   What s wrong

User · Answer

Wow  after few attempts I finally figured out how to deal with my text edits in vbs  The code works perfectly  it gives me the result I was expecting  Maybe it s not the best way to do this  but it does its job  Here s the code   Option Explicit  Dim StdIn   Set StdIn   WScript StdIn Dim StdOut  Set StdOut   WScript   Main    Sub Main    Dim objFSO  filepath  objInputFile  tmpStr  ForWriting  ForReading  count  text  objOutputFile  index  TSGlobalPath  foundFirstMatch Set objFSO   CreateObject  Scripting FileSystemObject   TSGlobalPath    C  VBS TestSuiteGlobal Test suite Dispatch Decimal - Global txt  ForReading   1 ForWriting   2 Set objInputFile   objFSO OpenTextFile TSGlobalPath  ForReading  False  count   7 text    foundFirstMatch   false  Do until objInputFile AtEndOfStream     tmpStr   objInputFile ReadLine     If foundStrMatch tmpStr  true Then         If foundFirstMatch   false Then             index   getIndex tmpStr              foundFirstMatch   true             text   text  amp  vbCrLf  amp  textSubstitution tmpStr index  true           End If         If index   getIndex tmpStr  Then             text   text  amp  vbCrLf  amp  textSubstitution tmpStr index  false           ElseIf index  lt  getIndex tmpStr  Then             index   getIndex tmpStr              text   text  amp  vbCrLf  amp  textSubstitution tmpStr index  true           End If     Else         text   text  amp  vbCrLf  amp  textSubstitution tmpStr index  false       End If Loop Set objOutputFile   objFSO CreateTextFile  C  VBS NuovaProva txt   ForWriting  true  objOutputFile Write text  End Sub   Function textSubstitution tmpStr index foundMatch  Dim strToAdd strToAdd     lt tr gt  lt td gt  lt a href    amp  chr 34   amp         Logs CF5 0 Features Beginning of CF5 0 Features TC   amp  CStr index   amp    html   amp  chr 34   amp    gt Beginning of CF5 0 Features TC   amp  CStr index   amp    lt  a gt  lt  td gt  lt  tr gt   If foundMatch    false  Then     textSubstitution   tmpStr ElseIf foundMatch    true  Then     textSubstitution   strToAdd  amp  vbCrLf  amp  tmpStr End If End Function   Function getIndex tmpStr  Dim substrToFind  charAtPos  char1  char2 substrToFind     lt tr gt  lt td gt  lt a href    amp  chr 34   amp      Test case   charAtPos   len substrToFind    1 char1   Mid tmpStr  charAtPos  1  char2   Mid tmpStr  charAtPos 1  1  If IsNumeric char2  Then     getIndex   CInt char1  amp  char2  Else     getIndex   CInt char1  End If End Function  Function foundStrMatch tmpStr  Dim substrToFind substrToFind     lt tr gt  lt td gt  lt a href    amp  chr 34   amp      Test case   If InStr tmpStr  substrToFind   gt  0 Then     foundStrMatch   true Else     foundStrMatch   false End If End Function   This is the original txt file   lt  xml version  1 0  encoding  UTF-8   gt   lt  DOCTYPE html PUBLIC  -  W3C  DTD XHTML 1 0 Strict  EN   http   www w3 org TR xhtml1 DTD xhtml1-strict dtd  gt   lt html xmlns  http   www w3 org 1999 xhtml  xml lang  en  lang  en  gt   lt head gt     lt meta content  text html  charset UTF-8  http-equiv  content-type    gt     lt title gt Test Suite lt  title gt   lt  head gt   lt body gt   lt table id  suiteTable  cellpadding  1  cellspacing  1  border  1  class  selenium  gt  lt tbody gt   lt tr gt  lt td gt  lt b gt Test Suite lt  b gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component TC Environment setting  gt TC Environment setting lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component TC Set variables  gt TC Set variables lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component TC Set ID  gt TC Set ID lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log in Admin  gt Log in Admin lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Set Roles Dispatch Decimal  gt Set Roles Dispatch Decimal lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1A1  gt Log  in U1A1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD contrD1  gt contrD1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1B1  gt Log  in U1B1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Search amp OpenApp  gt Search amp OpenApp lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD FormEND  gt FormEND lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Controllo END  gt Controllo END lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1A1  gt Log  in U1A1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 6 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 6 DD contrD1  gt contrD1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1B1  gt Log  in U1B1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Search amp OpenApp  gt Search amp OpenApp lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD FormEND  gt FormEND lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Controllo END  gt Controllo END lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1A1  gt Log  in U1A1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 7 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Controllo DeadLetter  gt Controllo DeadLetter lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Set Roles Dispatch Decimal  gt Set Roles Dispatch Decimal lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout BAC  gt Logout BAC lt  a gt  lt  td gt  lt  tr gt   lt  tbody gt  lt  table gt   lt  body gt   lt  html gt    And this is the result I m expecting   lt  xml version  1 0  encoding  UTF-8   gt   lt  DOCTYPE html PUBLIC  -  W3C  DTD XHTML 1 0 Strict  EN   http   www w3 org TR xhtml1 DTD xhtml1-strict dtd  gt   lt html xmlns  http   www w3 org 1999 xhtml  xml lang  en  lang  en  gt   lt head gt     lt meta content  text html  charset UTF-8  http-equiv  content-type    gt     lt title gt Test Suite lt  title gt   lt  head gt   lt body gt   lt table id  suiteTable  cellpadding  1  cellspacing  1  border  1  class  selenium  gt  lt tbody gt   lt tr gt  lt td gt  lt b gt Test Suite lt  b gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component TC Environment setting  gt TC Environment setting lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component TC Set variables  gt TC Set variables lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component TC Set ID  gt TC Set ID lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log in Admin  gt Log in Admin lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Set Roles Dispatch Decimal  gt Set Roles Dispatch Decimal lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1A1  gt Log  in U1A1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Logs CF5 0 Features Beginning of CF5 0 Features TC5 html  gt Beginning of CF5 0 Features TC5 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD contrD1  gt contrD1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1B1  gt Log  in U1B1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Search amp OpenApp  gt Search amp OpenApp lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 5 DD FormEND  gt FormEND lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Controllo END  gt Controllo END lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1A1  gt Log  in U1A1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Logs CF5 0 Features Beginning of CF5 0 Features TC6 html  gt Beginning of CF5 0 Features TC6 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 6 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 6 DD contrD1  gt contrD1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1B1  gt Log  in U1B1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Search amp OpenApp  gt Search amp OpenApp lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Controllo END  gt Controllo END lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Log  in U1A1  gt Log  in U1A1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Logs CF5 0 Features Beginning of CF5 0 Features TC7 html  gt Beginning of CF5 0 Features TC7 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href     Test case 7 DD Form1  gt Form1 lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Controllo DeadLetter  gt Controllo DeadLetter lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout  gt Logout lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Component Set Roles Dispatch Decimal  gt Set Roles Dispatch Decimal lt  a gt  lt  td gt  lt  tr gt   lt tr gt  lt td gt  lt a href        Login Logout BAC  gt Logout BAC lt  a gt  lt  td gt  lt  tr gt   lt  tbody gt  lt  table gt   lt  body gt   lt  html gt

User · Answer

I d recommend using a regular expressions instead of string operations for this   Set fso   CreateObject  Scripting FileSystemObject    filename    C  VBS filediprova txt   newtext   vbLf  amp    lt tr gt  lt td gt  lt a href         gt Beginning of DD TC5 lt  a gt  lt  td gt  lt  tr gt    Set re   New RegExp re Pattern      n   Test Case  d   re Global    False re IgnoreCase   True  text   f OpenTextFile filename  ReadAll f OpenTextFile filename  2  Write re Replace text  newText  amp    1     The regular expression will match a line feed   n  followed by a line containing the string Test Case followed by a number   d   and the replacement will prepend that with the text you want to insert  variable newtext   Setting re Global   False makes the replacement stop after the first match   If the line breaks in your text file are encoded as CR-LF  carriage return   line feed  you ll have to change  n into  r n and vbLf into vbCrLf   If you have to modify several text files  you could do it in a loop like this   For Each f In fso GetFolder  C  VBS   Files   If LCase fso GetExtensionName f Name      txt  Then     text   f OpenAsTextStream ReadAll     f OpenAsTextStream 2  Write re Replace text  newText  amp    1     End If Next

User · Answer

Try to change like this      firstStr     lt  xml version   my file always starts like this  Do until objInputFile AtEndOfStream        strToAdd     lt tr gt  lt td gt  lt a href    amp  chr 34   amp         Logs DD Beginning of DD TC   amp  CStr index   amp    html   amp  chr 34   amp    gt Beginning of DD TC   amp  CStr index   amp    lt  a gt  lt  td gt  lt  tr gt         substrToFind     lt tr gt  lt td gt  lt a href    amp  chr 34   amp      Test case    amp  trim cstr  index        tmpStr   objInputFile ReadLine     If InStr tmpStr  substrToFind   lt   0 Then        If Instr tmpStr  firstStr   gt  0 Then           text   tmpStr  to avoid the first empty line        Else           text   text  amp  vbCrLf  amp  tmpStr        End If    Else       text   text  amp  vbCrLf  amp  strToAdd  amp  vbCrLf  amp  tmpStr     End If    index   index   1 Loop

[text] Find specific string in a text file with VBS script

Examples related to text

Examples related to vbscript

Examples related to substring