Split String and Wrap Each Word in Quotations

[Luke94 37]

Hi,

I have the following string:

Quote

Item 1, Item@2, Item_3, Item/4, Item-5

I'm wanting to wrap each word in quotations whilst keeping them comma delimited. The output should look like:

Quote

"Item 1", "Item@2", "Item_3", "Item/4", "Item-5"

I'm able to achieve this with the following code:

#include <Array.au3>
#include <String.au3>

Local $sString = 'Item 1, Item@2, Item_3, Item/4, Item-5'
Local $aItems = StringSplit($sString, ', ', ($STR_ENTIRESPLIT + $STR_NOCOUNT))
Local $sOutput

For $i = 0 To (UBound($aItems) - 1) Step 1
    $sOutput &= StringFormat('"%s"', $aItems[$i])
    If $i < (UBound($aItems) - 1) Then $sOutput &= ', '
Next

ConsoleWrite($sOutput)

But I'm wondering if there's a StringRegExpReplace one liner that can do this? All searches seem to be bringing up stripping the quotations or replacing words between them. RegEx is one of my weaknesses - I can't seem to get my head around it 😢

[Nine 1,529]

This ?

Local $sText = "Item 1, Item@2, Item_3, Item/4, Item-5"

Local $sFinal = '"' & StringRegExpReplace($sText, '(, )', '", "') & '"'

ConsoleWrite($sFinal & @CRLF)

 

[Subz 814]

Or

Local $sString = 'Item 1, Item@2, Item_3, Item/4, Item-5'
$sString = '"' & StringReplace($sString, ", ", '", "') & '"'

 

[Luke94 37]

Christ.. I'm embarrassed 😟 I was expecting a lengthy, complicated expression - didn't think it would be so simple. Thanks guys!

Edited June 6 by Luke94