Jump to content
ur

how to split string by space but escape spaces inside quotes

Recommended Posts

ur

I have a string like this:

"Video or movie"    "parent"    "Media or entertainment"    "1" "1" "1" "0" "0"

I would like to split it by the spaces but the space inside the quote(both double and single quotes) should be ignored. So the splitted strings should be:

"Video or movie"
"parent"
"Media or entertainment"
"1"

Share this post


Link to post
Share on other sites
SadBunny

Something like this?

#include<Array.au3>

Local $x = '"Video or movie"    "parent"    ''Media or entertainment''    "1" "1" "1" "0" "0"'

Local $a = StringRegExp($x, '["''].*?["'']', $STR_REGEXPARRAYGLOBALMATCH)

_ArrayDisplay($a)

 


Roses are FF0000, violets are 0000FF... All my base are belong to you.

Share this post


Link to post
Share on other sites
AutoBert

This is a other possible solution:

#include <Array.au3>

$sText='"Video or movie"    "parent"    "Media or entertainment"    "1" "1" "1" "0" "0"'
$aText=StringSplit($sText,'"', $STR_ENTIRESPLIT)
For $i=$aText[0] To 1 Step -1
    If StringStripWS($aText[$i],8)='' Then _ArrayDelete($aText,$i)
Next
$aText[0]=UBound($aText)-1
_ArrayDisplay($aText)

 

Share this post


Link to post
Share on other sites
ur
1 hour ago, SadBunny said:

Something like this?

#include<Array.au3>

Local $x = '"Video or movie"    "parent"    ''Media or entertainment''    "1" "1" "1" "0" "0"'

Local $a = StringRegExp($x, '["''].*?["'']', $STR_REGEXPARRAYGLOBALMATCH)

_ArrayDisplay($a)

 

This is no splitting if I give the string as below

$string = "ERwin-PC ERwin-PC\erwin Notallowed1!"

Share this post


Link to post
Share on other sites
ur
1 hour ago, AutoBert said:

This is a other possible solution:

#include <Array.au3>

$sText='"Video or movie"    "parent"    "Media or entertainment"    "1" "1" "1" "0" "0"'
$aText=StringSplit($sText,'"', $STR_ENTIRESPLIT)
For $i=$aText[0] To 1 Step -1
    If StringStripWS($aText[$i],8)='' Then _ArrayDelete($aText,$i)
Next
$aText[0]=UBound($aText)-1
_ArrayDisplay($aText)

 

 

Capture.PNG

Share this post


Link to post
Share on other sites
mikell
6 minutes ago, ur said:

This is no splitting if I give the string as below

$string = "ERwin-PC ERwin-PC\erwin Notallowed1!"

Obvious. This string contains no quotes ^^

#include<Array.au3>

Local $x = "ERwin-PC ERwin-PC\erwin Notallowed1!" 
msgbox(0,"", $x)
Local $a = StringRegExp($x, '["''].*?["'']', 3)
_ArrayDisplay($a)

Local $x = '"ERwin-PC ERwin-PC\erwin Notallowed1!" '
msgbox(0,"", $x)
Local $a = StringRegExp($x, '["''].*?["'']', 3)
_ArrayDisplay($a)

 

Share this post


Link to post
Share on other sites
ur

Yeah, but my requirement is to split the string with space as delimiter and to skip the splitting if the space is inside the quotes...

Share this post


Link to post
Share on other sites
ur

Don;t know whether it is best one but I came up with this.

 

Func SplitSpaceNotInQuotes($sString)
    $aString = StringSplit($sString, "", 2)
    _ArrayDisplay($aString)
    $iStart = 0
    For $i=0 to UBound($aString)-1
        if ($aString[$i]="""" or $aString[$i]="'") and $iStart=1 then $iStart = 0

        if ($aString[$i]="""" and (Mod(UBound(StringSplit(_ArrayToString($aString,"",$i), """")),2) = 0)) or ($aString[$i]="'" and (Mod(UBound(StringSplit(_ArrayToString($aString,"",$i), "'")),2) = 0)) then
            $iStart=1
        EndIf
        if $iStart = 1 then
            if $aString[$i]=" " then $aString[$i]="æ"
        EndIf
    Next
    $sStringModified = _ArrayToString($aString,"")
    MsgBox(0,"",$sStringModified)
    For $b=1 to UBound($aString1)-1
        $aString1[$b]=trimQuotes($aString1[$b])
        $aString1[$b]= StringReplace ( $aString1[$b], "æ", " ")
    Next
        return $aString
EndFunc

 

Share this post


Link to post
Share on other sites
SadBunny

Ah, ok, how about this then...

#include<Array.au3>

Local $x = 'So this is    Christmas... "Video or movie"    "parent"    ''Media or entertainment''    "1" "1" "1" "0" "0"'

Local $a = StringRegExp($x, '["''].*?["'']|[^ ]+', $STR_REGEXPARRAYGLOBALMATCH)

_ArrayDisplay($a)

 

  • Like 1

Roses are FF0000, violets are 0000FF... All my base are belong to you.

Share this post


Link to post
Share on other sites
jchd

Does this work for you?

Local $s = '"Video or movie"  no_quotes  "parent"  ''action or drama''   "Media or entertainment"    "1" ''2" "3"'' "0" "0"'
Local $a = StringRegExp($s & " ", '(?|(".*?") +|(''.*?'') +|([^ "'']+) +)', 3)
_ArrayDisplay($a)

 

  • Like 1

This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites
ur

Thanks  SadBunny and jchd..

Your codes are working for me..

Can you guide me how to learn this Regular Expression syntax.

Share this post


Link to post
Share on other sites
jchd

The help file under StringRegExp is a concise primer, then use RegExp site to exercise and debug. The definitive documentation is in PCRE website (refer to PCRE1, not PCRE2).


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites
AutoBert
8 hours ago, ur said:

Yeah, but my requirement is to split the string with space as delimiter and to skip the splitting if the space is inside the quotes...

exactly this does my example for your demo data:

92_ArrayDisplay.jpg

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

    • WoodGrain
      By WoodGrain
      Hi All,
      I'd like to replace 'COMMA' with ',' for example:
      $myString = "COMMA" StringRegExpReplace($myString, 'COMMA', ',') Now I've tried escaping the ',' in various ways unsuccessfully, such as:
      '[,]'
      "[,]"
      '\,'
      [,] seems to work in the pattern, I just can't figure out how to use it in the replace, and it seems everyone online is only interested in removing/replacing commas lol.
      I also tried creating and using a variable as the replacement but also didn't work:
      $myComma = "," $myString = "COMMA" StringRegExpReplace($myString, 'COMMA', $myComma) I'm sure it's super simple if someone could point me in the right direction - thanks.
    • kartune
      By kartune
      Hello, I am getting this error message when running my script:
      Case $aButiD[0] To $aButiD[$iTotButtons - 1]
      Case ^ ERROR
      Error:  Array variable has incorrect number of subscripts or subscript dimension range exceeded.
       
      The script's purpose is to read my ini file and create buttons for the sections and section contents.
      The first part of the script creates buttons for the sections of the ini, once you click on the section button it should open another set of buttons of all the contents under the section
      In this case, the section in the .ini file is called "TPA"
      on the Func flavorco()
      It opens the contents of "TPA" into buttons.
      Right now, the section it is reading is determined by $sSection.
      It is only when I try to change $sSection = "TPA"
      to
      $sSection = $flavorco
      that the error starts to appear
       
      Here is the script
      #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> #include <Array.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> $optbar = IniReadSectionNames("test.ini") If Not IsArray($optbar) Then Exit Local $Button[UBound($optbar) - 1] $mGUI = GUICreate('Restock Flavor Ingredients', 10 + (130 * UBound($optbar)), 100) For $x = 1 To UBound($optbar) - 1 $var = IniReadSection("test.ini", $optbar[$x]) If @error Then ContinueLoop $X_Coord = 10 + (($x - 1) * 100) $Button[$x - 1] = GUICtrlCreateButton($optbar[$x], $X_Coord, 30, 70, 30) Next GUISetState() While 1 $mMsg = GUIGetMsg() If $mMsg = $GUI_EVENT_CLOSE Then GUIDelete($mGUI) ExitLoop EndIf For $i = 0 To UBound($Button) - 1 If $mMsg = $Button[$i] Then MsgBox(0, '$Msg = ' & $mMsg, GuiCtrlRead($Button[$i]) & ' Pressed', 2) Global $flavorco = $Button ; sets the flavor company's variable Call('flavorco') EndIf Next WEnd Func flavorco() ;opened flavor company's flavors MsgBox(0, '$Msg = ' & $mMsg, GuiCtrlRead($Button[$i]) & $flavorco, 0) Local $sFilePath = @ScriptDir & "\Test.ini" Local $sSection = $Button Local $aArray = IniReadSection($sFilePath, $sSection) _ArrayDelete($aArray, 0) ;_ArrayDisplay($aArray) Local $iIndex Local $iTotButtons = UBound($aArray) Local $iNumPerRow = 5 Local $iButWidth = 100 Local $iButDepth = 30 Local $aButiD[$iTotButtons] Local $hGUI = GUICreate('Ingredients Stock "' & $sFilePath & '"', 10 + ($iButWidth + 10) * $iNumPerRow, _ 10 + Ceiling($iTotButtons / $iNumPerRow) * ($iButDepth + 10), -1, $WS_EX_TOPMOST) For $i = 0 To $iTotButtons - 1 ; $x = $iXBorder + (($iRectWidth + $iSpacing) * Mod($i, $iNumCols)) $x = 10 + (($iButWidth + 10) * Mod($i, $iNumPerRow)) ; $y = $iYBorder + (($iRectDepth + $iSpacing) * Int($i / $iNumCols)) $y = 10 + (($iButDepth + 10) * Int($i / $iNumPerRow)) $aButiD[$i] = GUICtrlCreateButton($aArray[$i][0], $x, $y, $iButWidth, $iButDepth) ;, $BS_NOTIFY) Next GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE GUIDelete($hGUI) ExitLoop Case $aButiD[0] To $aButiD[$iTotButtons - 1] ;clicking on a flavor name $iIndex = ($msg - $aButiD[0]) $RSINGRflavor = $aArray[$iIndex][0] ;flavor name $RSINGRml = $aArray[$iIndex][1] ; ml $RSINGRgal = $aArray[$iIndex][1]*0.000264172 ;converts ml to gal Call('openflavor') EndSwitch WEnd EndFunc Func openflavor() #Region ### START Koda GUI section ### Form=F:\Karl\AutoIt\FJ-Stock JP\GUI Forms\RSINGRSUBFORM.kxf ;opens flavor to view stock and restock submit $RSINGRSUBFORM = GUICreate($sSection & " " & $RSINGRflavor, 242, 213, 530, 269) $RSINGRFlavorTitle = GUICtrlCreateLabel($sSection & " " & $RSINGRflavor, 32, 8, 200, 28) GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif") $RSINGRstockcaption = GUICtrlCreateLabel("Current Stock in ml:", 16, 48, 96, 17) $RSINGRstockml = GUICtrlCreateLabel($RSINGRml, 120, 48, 114, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $RSINGRInput = GUICtrlCreateInput("ml", 40, 112, 153, 21) $RSINGRSUBMIT = GUICtrlCreateButton("SUBMIT", 16, 152, 81, 33) $RSINGRCLOSE = GUICtrlCreateButton("CLOSE", 145, 151, 81, 33) $RSINGRgalcaption = GUICtrlCreateLabel("Current Stock in gal:", 16, 80, 97, 17) $RSINGRstockgal = GUICtrlCreateLabel($RSINGRGAL, 120, 80, 114, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ; $msg = "" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($RSINGRSUBFORM) ExitLoop Case $RSINGRCLOSE GUIDelete($RSINGRSUBFORM) ExitLoop EndSwitch WEnd EndFunc  
      Any help is much appreciated!  Thanks.
      My guess is that $Button isn't an actual string??  Whenever I use msgbox it shows up the string exactly, no numbers attached.  So i'm not sure whats going on here.
    • XinYoung
      By XinYoung
      Hello again,
      I'm trying to use the FileMove function to rename a bunch of text files.
      Some of the files have "_1" at the end of their name, for example, "File123_1.txt". I want to remove the "_1" so it would become "File123.txt".
      What I currently have...
              FileMove($sSource & "\*_1.txt", $sDestination & "\*.txt")
      But since I'm using a wildcard, it doesn't appear to be working. I think it's just replacing .txt with .txt. Am I going about this the wrong way? How can I use wildcards and still accomplish this?
      Any help is greatly appreciated ^__^
    • ur
      By ur
      I have date in the string format as "DD-MM-YYYY".
       
      I need to get yesterday's date from it.
      I tried converting this from _DateTimeFormat but not working.
      Is there any direct UDF available to get this.?
    • rkr
      By rkr
      Hi, i want to read a particular string from a text file using autoit. i wish to read it without explicitly opening the text file. the copied string should be then transferred to an excelbook (again, no need to explicitly open the excel book)... 

      with reference to my screenshot attached, my input to the  'script'' is going to be 0017-0008, and the script should copy the highlighted two lines from the input file to excel
      thanks

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.