simple string split question

[E1M1]

how tosplit string after every x characters?

I wanna split long 1 line sring into multiline strings, I wanna add @crlf after every 70 characters.

[E1M1]

I tried this, but it's bugsesgy, can anyone help me fix it? Following script loses some characters from original string.

edit I tried to set$i start value to 0, It seems like I have now full string, but I also have some extra line ends.

edit2:How to define long multiline variable?

I remember It was like

$var = "fffffffffff" &_

_& "ffffff"

but I cant remember exactly how.

ClipPut("fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff")

$string = ClipGet()
$other = ""
dim $new[1]
ReDim $new[Int(StringLen($string)/70) + 1]
For $i = 1 to Int(StringLen($string)/70)
$new[$i] = StringLeft(StringTrimLeft($string,($i*70)+$i),70) & @CRLF
$other = $other & $new[$i]
Next

ClipPut($other)

Edited August 25, 2009 by E1M1

[Melba23]

E1M1,

Both answers in one:

$sString =  "XXXXXXXYYYYYYYZZZZZZZ" & _
            "XXXXXXXYYYYYYYZZZZZZZ" & _
            "XXXXXXXYYYYYYYZZZZZZZ" & _
            "XXXXXXXYYYYYYYZZZZZZZ"

$sNewString = ""

For $i = 1 To StringLen($sString) Step 7
    $sNewString &= StringMid($sString, $i, 7) & @CRLF
Next

ConsoleWrite($sNewString & @CRLF)

M23

[martin]

  On 8/25/2009 at 3:35 PM, 'E1M1 said:

I tried this, but it's bugsesgy, can anyone help me fix it? Following script loses some characters from original string.

edit I tried to set$i start value to 0, It seems like I have now full string, but I also have some extra line ends.

edit2:How to define long multiline variable?

I remember It was like

$var = "fffffffffff" &_

_& "ffffff"

but I cant remember exactly how.

ClipPut("fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff")

$string = ClipGet()
$other = ""
dim $new[1]
ReDim $new[Int(StringLen($string)/70) + 1]
For $i = 1 to Int(StringLen($string)/70)
$new[$i] = StringLeft(StringTrimLeft($string,($i*70)+$i),70) & @CRLF
$other = $other & $new[$i]
Next

ClipPut($other)

Melba23 has shown a better and simpler way to do what you want, but in case it helps here is your way corrected.

$string = "fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff"

$other = ""
dim $new[Int(StringLen($string)/70) + 1]
For $i = 0 to Int(StringLen($string)/70);<---------start from 0 not 1
$new[$i] = StringLeft(StringTrimLeft($string,($i*70)),70) & @CRLF;<--------removed the +$i
$other = $other & $new[$i]
Next
ConsoleWrite($other & @CRLF)

Edited August 25, 2009 by martin

[trancexx]

Or like this maybe:

$sNewString = StringRegExpReplace($sString, "(?s)(.{70})", "$1" & @CRLF)

[Melba23]

I just knew an SRE guru would turn up sooner or later.... >_<

M23

[E1M1]

what his part does?It's too hard for me to understand it.

"(?s)(.{70})", "$1"

[PsaltyDS]

  On 8/25/2009 at 8:05 PM, 'E1M1 said:

what his part does?It's too hard for me to understand it.

"(?s)(.{70})", "$1"

Look in your help file at StringRegExp() for a basic description of regular expressions. That one used in StringRegExpReplace() sez:

"(?s)" = "While matching any character including whitespaces..."

"(.{70})" = "Match every group of 70 characters..."

"$1" & @CRLF = "Replace each matched group with the same 70 characters plus @CRLF."

>_<

[E1M1]

thanks

[trancexx]

  On 8/25/2009 at 8:13 PM, 'PsaltyDS said:

Look in your help file at StringRegExp() for a basic description of regular expressions. That one used in StringRegExpReplace() sez:

"(?s)" = "While matching any character including whitespaces..."

"(.{70})" = "Match every group of 70 characters..."

"$1" & @CRLF = "Replace each matched group with the same 70 characters plus @CRLF."

>_<

"(?s)" means for dot "." that follows to match anything including newline.

@Melba23, guru my ... (use your imagination )

[PsaltyDS]

  On 8/25/2009 at 9:33 PM, 'trancexx said:

@Melba23, guru my ... (use your imagination )

...shiny buttons?

>_<

[trancexx]

  On 8/25/2009 at 9:38 PM, 'PsaltyDS said:

...shiny buttons?

>_<

Assented.

...you dirty talker.