LoneWolf_2106

StringInStr and tags

7 posts in this topic

#1 ·  Posted (edited)

Hi everybody,

i have a log file with several entries like the following one:

INFO [26.04.2017 11:37:48] [main] XML-Data: 
<online-activation>

  <general>
    <userid>XYZ</userid>
    <mac-address/>
    <OU>VG-DE</OU>
    <ROLE>KDT</ROLE>
    <FOA>PRO;FC;DOM;MDD</FOA>
    <BRD>XYZ;IMP</BRD>
  </general>

  <applications>
    <app expiration-date="2017-10-01" name="BB-INFO"/>
    <app expiration-date="2017-10-01" name="MMSKD"/>
    <app expiration-date="2017-10-01" name="FM-TOOL"/>
    <app expiration-date="2017-04-05" name="WEB-BTD"/>
    <app expiration-date="2017-10-01" name="OFFLINE-BTD"/>
    <app expiration-date="2017-10-01" name="MDU-UPD"/>
    <app expiration-date="2017-10-01" name="MDU"/>
    <app expiration-date="2017-04-05" name="WEB-WDA"/>
    <app expiration-date="2017-04-05" name="WEB-ETD"/>
    <app expiration-date="2017-10-01" name="OFFLINE-WDA"/>
    <app expiration-date="2017-10-01" name="OFFLINE-ETD"/>
  </applications>

</online-activation>

 

I need to collect all the XML-Data, my search doesn't work:

 

Func FileSearch()
    $j=0
    For $i = 0 To UBound($content_array) - 1
            $search_result=StringInStr($content_array[$i],$search)

                If $search_result<>0 Then
                    ReDim $searchResultArray[UBound($searchResultArray) + 1]
                    $searchResultArray [$j] = $content_array[$i]
                    _ArrayDisplay($searchResultArray)
                $j+=1
                EndIf

    Next
EndFunc

If i search for "online-activation", it retrieves only the first and the last tag, but not what is within.

In addition, when i use FileReadToArray, all the entries between <online-activation> and </online-activation>

2017-07-03 14_22_55-ArrayDisplay.png

Edited by LoneWolf_2106

Share this post


Link to post
Share on other sites



#2 ·  Posted

In the User Defined Functions reference of the wiki you will find a few XML-related UDFs.
Maybe they can better handle your log file format.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Hi Water,

thanks for your support, i looked for a function in https://www.autoitscript.com/autoit3/docs/libfunctions.htm, but i didn't find any function related to XML. Maybe i am looking in the wrong document.

 

In Addition i have modified my function, but it writes only an entry, every time starts writing a new row, the previous one "disappear":

 

Func FileSearch($sStringToSearch)
    $k=0
    $count_search=0
    For $count = 0 To UBound($content_array) - 1
            $search_result=StringInStr($content_array[$count],$sStringToSearch)
                If $search_result<>0  Then
                    $count_search+=1
                    ReDim $SearchOnlineActivation[$count_search][$k] ;Adding a row
                    ;MsgBox($MB_OK, "rows", UBound($SearchOnlineActivation, $UBOUND_ROWS))
                    For $k=0 To 48
                        $k+=1
                        ReDim $SearchOnlineActivation[$count_search][$k] ;Adding a column
                        $count+=1
                        $SearchOnlineActivation [$count_search -1][$k-1] = $content_array[$count]
                        ;_ArrayDisplay($SearchOnlineActivation)
                        Next
                EndIf
    Next
    _ArrayDisplay($SearchOnlineActivation)
EndFunc

 

Edited by LoneWolf_2106

Share this post


Link to post
Share on other sites

#4 ·  Posted

If you carefully read my last post you will notice that I was talking about the wiki. There you will find some XML related UDFs.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

Thanks Water, i was reading at the wrong place, i've stored the Webpage. Anyway i've noticed that the library works if i have a real XML file. Unfortunately i have just an extract of some tags from a XML document, i have just some tags in a text logfile, which is not a XML file.

Edited by LoneWolf_2106

Share this post


Link to post
Share on other sites

#6 ·  Posted

Hi,

 

can anyone try my function and tell me why the previous search disappears from the array?

 

#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <File.au3>
#include <Array.au3>


;Variables definition

$search = "XML-Daten"
$file=@ScriptDir & "\test.log"

Global $SearchOnlineActivation[0][0]


;Program execution

FileReading()
FileSearch($search)

;File read

Func FileReading()

Global $content_array = FileReadToArray($file)
_ArrayDisplay($content_array)


If @error Then
        MsgBox($MB_OK, "", "There was an error reading the file. @error: " & @error)
;   Else
 ;     For $i = 0 To UBound($content_array) - 1
 ;        MsgBox($MB_OK, "", $content_array[$i])
  ;      Next
    EndIf
EndFunc


;File search with XML tags

 Func FileSearch($sStringToSearch)
    $k=0
    $count_search=0
    For $count = 0 To UBound($content_array) - 1
        $search_result=StringInStr($content_array[$count],$sStringToSearch)
                If $search_result<>0  Then
                    $count_search+=1
                    ReDim $SearchOnlineActivation[$count_search][$k] ;Adding a row
                    For $k=0 To 53
                        $k+=1
                        ReDim $SearchOnlineActivation[$count_search][$k] ;Adding a column
                        $SearchOnlineActivation [$count_search -1][$k-1] = $content_array[$count]
                        $count+=1
                        ;_ArrayDisplay($SearchOnlineActivation)
                    Next
                EndIf
    Next
    _ArrayDisplay($SearchOnlineActivation)
EndFunc


;File close

FileClose ("$file")

 

test.log

Share this post


Link to post
Share on other sites

#7 ·  Posted

Maybe I'm wrong (haven't worked with XML so far) but I would create a "real" XML file by reading the file, dropping all non-XML lines and then use a XML UDF to process the created XML file.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • MrSparty1995
      By MrSparty1995
      I have a good handle on how to read a file line by line, and search for a given string.
      Basically using, FileOpen, FileReadLine, and StringInStr.
      I have been trying to figure out why my search keeps coming back with no match.
      For example, if my string line was "Where is Waldy", and I was searching for Waldy that comes back fine.
      But in my file, Let's say it is
      Where is "Waldy"
      So i read that line in and do a search for Waldy, but i comes back with no match since there is quotes around it.
      Is there a way to resolve this?
      Here is my actual example
      The line comes back like this
          <JposEntry logicalName="LineDisp_iSC480">
      I'm searching for LineDisp_iSC480, but its coming back with no match due to the quotes.
      Thanks in advance, James
    • AliOzturk
      By AliOzturk
      Hello, I want to be able to search for multiple strings and if any of the strings are found I want it returned which one it is. I've been able to search for multiple strings using the OR command, but I'm not sure how I am supposed to make it return which of my strings is found. I've given an example below
      If StringInStr($html, Batman) OR StringInStr($html, Superman) Then MsgBox(0, "Success", "The string found was: Superman") EndIf So it will search for the two strings and whichever it founds it will return me with. How can I make that work?
    • rootx
      By rootx
      #include <Array.au3> #include <File.au3> #include <MsgBoxConstants.au3> Local $path="C:\Users\rootx\Desktop\Nuova cartella",$mask = "*.jpg;*.png;*.ico",$Pos $FileArr = _FileListToArrayRec($path,$mask,1,1,1,2) For $x = 1 to UBound($FileArr)-1 If $Pos = StringInStr($FileArr[$x],"-") Then ConsoleWrite("------"&$FileArr[$x]&@CRLF) Else ConsoleWrite($FileArr[$x]&@CRLF) FileDelete($FileArr[$x]) EndIf ConsoleWrite($x&@CRLF) Next ConsoleWrite($x-1&@CRLF) I would write a loop that individuals and delete files that contain this feature....
      File name-150x100.jpg, or other -SizexSize
      But in this case how can I filter properly?
      File name 150x100-150x100.jpg
      File name -100-150x100.jpg
       
    • Italiano
      By Italiano
      Hello,
      As always, sorry for my bad english.
      here is the code i have
      #include <File.au3> #include <String.au3> $file1 = "d:\doppioniautoit\international.txt" FileOpen($file1, 0) $file2 = "d:\doppioniautoit\standard.txt" FileOpen($file2, 0) For $i = 1 to _FileCountLines($file1) $line = FileReadLine($file1, $i) $aExtract = _StringBetween($line, "(", ")") ;MsgBox(0, $line, $aExtract[0]) $itime = TimerInit() For $x = 1 to _FileCountLines($file2) $line2 = FileReadLine($file2, $x) Local $iPosition = StringInStr($line2, $aExtract[0], 1) ;Local $iPosition = StringRegExp($line2,$aExtract[0], 0) if $iPosition <> 0 then ;MsgBox(0, "Trovato", $aExtract & " " & $line2) endif ConsoleWrite($line2 & @CRLF) Next ConsoleWrite(@TAB&'Str='&TimerDiff($itime)&' ms'&@lf) MsgBox(0, "TIME", @TAB&'Str='&TimerDiff($itime)&' ms'&@lf) Next FileClose($file1) So, what do i want to do? I try to explain with my poor english   Basically, i have 2 text files (see attachments below). They both contains movie titles with Director and Year  in this form
      Movie Title (Director, Year)
      "Standard.txt" contains, mostly, italian titles. "International.txt", as you can image, contains the internationals one. With the script i would like to search for the Director, Year of "international.txt" in the "standard.txt" file.
      For example... first row of "international.txt" is "¡Atraco! (Cortés, 2012)". The script takes just the "Cortés, 2012" and it searches for it in the standard. txt file.
      The simple code i wrote works...  I tried using StringInStr and using StringRegExp.. they both need about 2 minutes and 30 seconds (stringinstr is little faster) to process one row.
      I was wondering... is there any other method to make it faster using autoit? Any help would be much appreciated, thx!
       
       
      standard.txt
      international.txt
    • souldjer777
      By souldjer777
      Good Morning All,
      I'm hoping someone here can work their AutoIT magic 
      I'm doing a pretty "simple" string search in a HUGE variable.
      But I'm doing the basics almost straight out of the Help File...

      ( sorry, I'm leaving out my main code for privacy reasons )
      Local $hFileOpen = FileOpen($sFilePath, $FO_READ) Local $sFileRead = FileRead($hFileOpen) Local $sEmailPosition01 = StringInStr ($sFileRead, $sEmailAddress ) Everything looks good with my troubleshooting
      I ran IsString against $sFileRead and $sEmailAddress and was okay: "The variable is a string"
      So then I ran StringLen($sFileRead) and got string length 68352786
      Yeah, I know... That's HUGE - But it worked with the older version of AutoIT (upgraded yesterday) v3.3.14.2
      Is there an "Excessive" variable I should set?!? lol. Should I search the string a different way maybe?
      I know the string is in there... but I'm getting a StringInStr @error : 0 @extended: 0
      Please help! Thank you all