Quick help with StringSplit

[SeF]

Hello!

I'm still trying to understand how to use StringSplit properly with delimiters (from StringRegExp HelpFile).

Like, I want to split this single text:

"47.42-3-00 - Comércio varejista de material elétrico 47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo 47.54-7-01 - Comércio varejista de móveis"

Into this:

$Variable[1] = "47.42-3-00 - Comércio varejista de material elétrico "

$Variable[2] = "47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo"

$Variable[3] = "47.54-7-01 - Comércio varejista de móveis"

I'm trying to first split by using the numbers, like:

'number' & 'number' & '.' & 'number' & 'number' & '-' & 'number' & '-' & 'number' & 'number'

But, don't know how to do it.

Any ideas?

I won't post any script because still don't have any. I'm still testing some methods..

Tks!

[nitekram]

does it always start with 47?

[Bowmore]

This should give you the result you require.

#include <array.au3>
$sData = "47.42-3-00 - Comércio varejista de material elétrico 47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo 47.54-7-01 - Comércio varejista de móveis"

$sTemp = StringRegExpReplace($sData," ([0-9]{2}\.)",@CRLF & "$1")

$aRows = StringSplit($sTemp,@CRLF,3)

;Just to show result
_ArrayDisplay($aRows, "Data Split into separate Rows")

[Ascend4nt]

Here's one way without StringSplit (assuming the given pattern is consistent throughout):

#include <Array.au3>
$sStr="47.42-3-00 - Comércio varejista de material elétrico 47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo 47.54-7-01 - Comércio varejista de móveis"
$aArr=StringRegExp($sStr,'([\d.-]+\D+(?=\s\d|$))',3)
_ArrayDisplay($aArr)

[SeF]

does it always start with 47?

No. Sometimes starts with 00, 01, 21 etc.

This should give you the result you require.

#include <array.au3>
$sData = "47.42-3-00 - Comércio varejista de material elétrico 47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo 47.54-7-01 - Comércio varejista de móveis"

$sTemp = StringRegExpReplace($sData," ([0-9]{2}\.)",@CRLF & "$1")

$aRows = StringSplit($sTemp,@CRLF,3)

;Just to show result
_ArrayDisplay($aRows, "Data Split into separate Rows")

Thanks!

It worked pretty well!

Here's one way without StringSplit (assuming the given pattern is consistent throughout):

#include <Array.au3>
$sStr="47.42-3-00 - Comércio varejista de material elétrico 47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo 47.54-7-01 - Comércio varejista de móveis"
$aArr=StringRegExp($sStr,'([\d.-]+\D+(?=\s\d|$))',3)
_ArrayDisplay($aArr)

Thanks!

Also worked pretty well!

---

Thanks everyone!

[GEOSoft]

"Pretty well" suggests that it didn't work quite as you needed. If you can point out what didn't behave properly, it may be an easy fix to the expression.

[SeF]

"Pretty well" suggests that it didn't work quite as you needed. If you can point out what didn't behave properly, it may be an easy fix to the expression.

Sorry. I didn't used the right word. Actually, it worked perfectly!

I used Bowmore's script.

Here is the final script:

#include<Excel.au3>
$oExcel = _ExcelBookAttach("Pessoa Fisica.xlsb", "filename")
$i = 2
Do
    $Celula = _ExcelReadCell($oExcel, "E" & $i)
    If $Celula <> "Não informada" Then
        $sTemp = StringRegExpReplace($Celula, " ([0-9]{2}\.)", @CRLF & "$1")
        $aRows = StringSplit($sTemp, @CRLF, 1)
        If $aRows[0] <> "1" Then
            $p = 1
            $c = 0
            Do
                $oExcel.Application.Range(Chr(Asc("E") + $c) & $i).Select ;Just to watch the script "doing your job". For fun ;D
                _ExcelWriteCell($oExcel, $aRows[$p], Chr(Asc("E") + $c) & $i)
                $c = $c + 1
                $p = $p + 1
            Until $c = $aRows[0]
        EndIf
    EndIf
    $i = $i + 1
Until $i = _ExcelReadCell($oExcel, "E" & $i) = ""
;

Just changed one parameter from StringSplit because I needed to know how many arrays was splited.

It was about 160,000 Excel's Rows in less than 1 hour. I'm satisfied with the code!

Anyway, thanks for the concern!

Edited October 19, 2010 by SeF