How can do newline StringSplit?

[Codemike]

If I do StringSplit(clipget(), " ") how I can do that line last word and new line first word don't merge? (I can see that if I use _ArrayDisplay() ).

[UEZ]

Try something like this:

#include <Array.au3>
$t = ClipGet()
$aT = StringSplit(StringReplace($t, Chr(13), ""), Chr(10), 2)
Dim $aFinal[UBound($aT)][100000]
$ub = 0
For $h = 0 To UBound($aT) - 1
    $array = StringSplit($aT[$h], "", 2)
    If $ub < UBound($array) Then $ub = UBound($array)
    For $i = 0 To UBound($array) - 1
        $aFinal[$h][$i] = $array[$i]
    Next
Next
ReDim $aFinal[UBound($aT)][$ub]
_ArrayDisplay($aFinal)

This is just a simple example and has enough room for improvement.

Br,

UEZ

Edited February 27, 2011 by UEZ

[Codemike]

Try something like this:

#include <Array.au3>
$t = ClipGet()
$aT = StringSplit(StringReplace($t, Chr(13), ""), Chr(10), 2)
Dim $aFinal[UBound($aT)][100000]
$ub = 0
For $h = 0 To UBound($aT) - 1
    $array = StringSplit($aT[$h], "", 2)
    If $ub < UBound($array) Then $ub = UBound($array)
    For $i = 0 To UBound($array) - 1
        $aFinal[$h][$i] = $array[$i]
    Next
Next
ReDim $aFinal[UBound($aT)][$ub]
_ArrayDisplay($aFinal)

This is just a simple example and has enough room for improvement.

Br,

UEZ

Thanks, but I'm a beginner in the programming and I have tryed much think how I can continue that I get words that original form without words merge (and can use example $word[x] call)?

[UEZ]

Do you want to split in words instead of letters?

Br,

UEZ

[Codemike]

Do you want to split in words instead of letters?

Br,

UEZ

Words if it is possible some way? (I have done some program when I noticed that line last word and new line first word merge in StringSplit and looking hard solving to problem.)

[UEZ]

If you replace line 7 with

$array = StringSplit($aT[$h], " ", 2)

it will split at space.

Br,

UEZ

Edited February 27, 2011 by UEZ

[Codemike]

If you replace line 7 with

$array = StringSplit($aT[$h], " ", 2)

it will split at space.

Br,

UEZ

Thanks very much that you try to help me. But this your example unfortunately don't work. Maybe problem is very difficult because anyone else don't help?

[SmOke_N]

This is one of those times where you've attempted to follow the forum rules, and the translation is getting lost I think.

I'd suggest you posting your question in your native language now. Maybe someone that speaks it will understand.

[Melba23]

Codemike,

I believe the problem (and solution) is very simple. You are splitting the text on the spaces and the @CRLF at the end of each line is not splitting.

Just use StringReplace to change the @CRLF to spaces and the StringSplit works as you wish:

#include <Array.au3>

$sText = "This is line 1" & @CRLF & _
         "This is line 2" & @CRLF & _
         "This is line 3" & @CRLF & _
         "This is line 4"

$aStringSplit = StringSplit(StringReplace($sText, @CRLF, " "), " ")

_ArrayDisplay($aStringSplit)

Is that what you wanted?

M23

[Mat]

The way I'd do it Melba is use StringStripCR and then use the fact that StringSplit accepts multiple splits... You might also want to treat double spaces as being one:

#include <Array.au3>

$sText = "This is line 1" & @CRLF & _
         "This is line 2" & @CRLF & _
         "This is line 3" & @CRLF & _
         "This is line 4"

$aStringSplit = StringSplit(StringStripWS(StringStripCR($sText), 4), " " & @LF)

_ArrayDisplay($aStringSplit)

Just a few more things to think about

Mat

[Codemike]

The way I'd do it Melba is use StringStripCR and then use the fact that StringSplit accepts multiple splits... You might also want to treat double spaces as being one:

#include <Array.au3>

$sText = "This is line 1" & @CRLF & _
         "This is line 2" & @CRLF & _
         "This is line 3" & @CRLF & _
         "This is line 4"

$aStringSplit = StringSplit(StringStripWS(StringStripCR($sText), 4), " " & @LF)

_ArrayDisplay($aStringSplit)

Just a few more things to think about

Mat

Thanks very much evryone who help me. Yes now it works what I need.

#include <Array.au3>

clipget()

$sText = clipget()

$aStringSplit = StringSplit(StringReplace($sText, @CRLF, " "), " ")

_ArrayDisplay($aStringSplit)