Split a long string

[Emiel Wieldraaijer]

Hi,

Does someone know how to change the following

00000000000000000000000000000000 (this one has a variable length)

into

*************

*00000000*

*00000000*

*00000000*

*00000000*

*************

Thnx

Emiel

Edited January 21, 2012 by Emiel Wieldraaijer

[water]

Did you already try it yourself? Do you have some code we can review?

[water]

Or quick and dirty:

$iPartlen = 5
$sString = "000000000000000000000000000000000000000000000000000000000000000000000000"
$iPos = 1
While 1
    If $iPos >= StringLen($sString) Then Exitloop
    ConsoleWrite ("*" & StringMid($sString, $iPos, $iPartlen) & "*" & @CRLF)
    $iPos += $iPartlen
Wend

[Emiel Wieldraaijer]

No i did not have any code ..

i could not get my mind clear the find the solution for this

And now i see your code .. it's simple.. i need to get some sleep... maybe that will help

Thnx

Cheers

[water]

Good night

[czardas]

Here's a simple snippet I wrote a while back. It splits a string into equal length segments. Any remaining characters appear in the last array element.

#include <Array.au3>

Local $string = "1a2b3c4d5e6f7g8h9i" ; string to split
Local $iLimit = 5 ; length of each segment
Local $array = StringRegExp($string, "(?s).{1," & $iLimit & "}", 3) ; the magic

_ArrayDisplay($array)

Edited January 22, 2012 by czardas

[Emiel Wieldraaijer]

@Water

Thanks again.. really simple

@Czardas

Thanks also a nice example

[water]

Glad you like it

[Malkey]

This creates a long string, and then splits the long string.

Local $iPartlen = 8

; From  http://www.autoitscript.com/forum/index.php?showtopic=101594&view=findpost&p=722113
Local $sString = StringRegExpReplace(StringFormat("%" & ($iPartlen * 4) & "s", " "), ".", "0") ; = 32 "0"'s = "00000000000000000000000000000000"

ConsoleWrite("*************" & @LF & StringRegExpReplace($sString, "(.{" & $iPartlen & "})", "*\1*" & @LF) & "*************" & @CRLF)

#cs
Console output:-
*************
*00000000*
*00000000*
*00000000*
*00000000*
*************
#ce