Sign in to follow this  
Followers 0
Reddragon

String Extraction/Manipulation

4 posts in this topic

Product Name: Windows 7 Ultimate
 Version: 6.1  Service Pack 1


 Product Name: Microsoft Office Professional Edition 2003
 Version: 11.0.5614.0

How to extract the above texts so that i get the values of product name and version through a loop

Share this post


Link to post
Share on other sites



Here's one way to do it, it takes the text and puts it into a 2D array, the first column is the product name, the second column is the version information.

#include <Array.au3>
$sString = "Product Name: Windows 7 Ultimate" & @CRLF & _
        "Version: 6.1  Service Pack 1" & @CRLF & _
        "Product Name: Microsoft Office Professional Edition 2003" & @CRLF & _
        "Version: 11.0.5614.0" & @CRLF
Global $aText[10][2]
$aString = StringRegExp($sString, "Product Name: (.+)", 3)
For $I = 0 To UBound($aString) - 1
    $aText[$I][0] = $aString[$I]
Next
$aString = StringRegExp($sString, "Version: (.+)", 3)
For $I = 0 To UBound($aString) - 1
    $aText[$I][1] = $aString[$I]
Next
ReDim $aText[UBound($aString)][2]
_ArrayDisplay($aText)

Probably not the most elegant way of doing it, and I'm sure one of the RegEx gurus will come up with a better way of doing it, but it can at least give you some ideas.

:)


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Reddragon,

I am not sure what you mean by "through a loop" - but this code will extract the required information: :)

#include <MsgBoxConstants.au3>
#include <String.au3>

$sString = "Product Name: Windows 7 Ultimate" & @CRLF & _
    "Version: 6.1  Service Pack 1" & @CRLF & _
    "" & @CRLF & _
    "" & @CRLF & _
    "Product Name: Microsoft Office Professional Edition 2003" & @CRLF & _
    "Version: 11.0.5614.0"

$aProductName = _StringBetween($sString, "Product Name:", @CRLF)
$aVersion     = _StringBetween($sString, "Version:", @CRLF)

MsgBox($MB_SYSTEMMODAL, "Return", $aProductName[0] & @CRLF & $aVersion[0])
M23

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Without regex :)

#include <Array.au3>
$sString = "Product Name: Windows 7 Ultimate" & @CRLF & _
        "Version: 6.1  Service Pack 1" & @CRLF & _
        "Product Name: Microsoft Office Professional Edition 2003" & @CRLF & _
        "Version: 11.0.5614.0"

Local $aArray1 = StringSplit($sString, @crlf, 1), $aArray2, $aResult[$aArray1[0]][1]
For $i = 1 To $aArray1[0]
    $aArray2 = StringSplit($aArray1[$i], ": ", 1)
    If $aArray2[0] > UBound($aResult, 2) Then ReDim $aResult[$aArray1[0]][$aArray2[0]]
    For $i2 = 1 To $aArray2[0]
       $aResult[$i-1][$i2-1] = $aArray2[$i2]
    Next
Next
_ArrayDisplay($aResult)
Edited by mikell

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
Sign in to follow this  
Followers 0