[help]Count, replace

[ThiagoJunqueira]

Hi everybody

Sorry for my english ..

Well.. my doubt it's simples i guess, i want to replace some sequence of strings in texts, follow the example:

"Posting aaa New Topic in Generaaaaal Help aand Suport"

I have to replace a sequence of "a" to ", + numbers of sequence" then:

"Poosting ,3 New Topic in Gener,4l Help ,2nd Suport"

I don't know, but maybe:

expandcollapse popup

FileDelete("a.txt")

$txt = "0a0000aaaaaa00000daga0gar0ga0g0a0gag0afgagga0000000gagag"

$stxt= StringLen($txt)

$qtd = 1
$add = 0
$we = 1

$posicao = StringInStr($txt, "0")

While $posicao > 0
   $se = StringTrimLeft($txt, $posicao)
   $se2 = StringTrimLeft($txt, $posicao + 1)

if StringTrimRight($se, StringLen($se) - $qtd) = '0' then
$we = 1



if StringTrimRight($se2, StringLen($se2) - $qtd ) = '0' Then

While $we = 1
   $add = $posicao & ","
   FileWrite("a.txt", $add & @CRLF)
   $posicao = $posicao + 1
   FileWrite("a.txt", $add & @CRLF)
;~    StringReplace
;~ $we = 0
MsgBox(0, "", "te")   


WEnd

Else



   FileWrite("a.txt", $add & @CRLF)
EndIf

EndIf

if $posicao >= $stxt Then
   Exit
EndIf

$posicao = $posicao + 1

WEnd

Hi again ):

I really tried do this.

I'm since 15 hours only trying, search on google..

But i don't know how to do !!!

Please help !

The logic it's simples:

Search a sequence of "0", "a", don't matter. and substitue for /numbersOFsequence.

Please, somebody would help me ?

Thanks !

Edited November 25, 2012 by ThiagoJunqueira

[ThiagoJunqueira]

Bump.

Plaese help ):

[ThiagoJunqueira]

I changed the code.

Sorry about flood, but i need this

Bump ):

[Melba23]

ThiagoJunqueira,

Please do nto bump your threads within 24 hrs - and certainly not overnight Sat-Sun when almost no-one is on the forum. Remember this is not a 24/7 support forum - those who answer are only here because they like helping others and have some time to spare. You just have to wait until someone who knows something about your particular problem, and is willing to help, comes online. Be patient and someone will answer eventually - like this.

I would do it this way:

expandcollapse popup

#include <String.au3>

; Here is the original string
$sString = "Posting aaa New Topic in Generaaaaal Help aand Suport"

; Declare a couple of variables
$iCount = 0
$sRev_String = ""

; Work backwards through the string
For $i = StringLen($sString) To 1 Step -1

    ; Read character
    $sChar = StringMid($sString, $i, 1)

    ; Test lowercase for case insensitivity - change this is you want to distinguish "A" and "a"
    Switch StringLower($sChar)
        Case "a"
            ; It is an "a" so increase the count
            $iCount += 1

        Case Else
            ; It is something else
            If $iCount Then
                ; If the previous char was an "a" add the count to the string
                $sRev_String &= $iCount
                ; And reset the count ready for the next "a"
                $iCount = 0
            EndIf
            ; Add the char to the string
            $sRev_String &= $sChar

    EndSwitch
Next

; Now reverse the string we have created
$sNew_String = _StringReverse($sRev_String)

; And here is the result
ConsoleWrite($sNew_String & @CRLF)

All clear?

M23

[ThiagoJunqueira]

Hi M23,

Thanks, really thanks (:

Sorry for the bumps.. i was desperate

The code is working fine *-*

So short

But when the "a" is more than 9, crash.

Follow the example:

$sString = "xaaaaaaaaaa" x01 ):

I'm trying resolve this, but no progress

Thanks

[kylomas]

TJ,

This might get you started on a general string compressor (if that is what you are doing?). Code is rough but you'll get the idea.

$str = 'a good boy doeees not             ' & @crlf & _
       'do what goood boys doo not do     ' & @crlf & _
       'However,    goodd   girls   doooo ' & @crlf

msgbox(0,'',simple_string_compression($str))

func simple_string_compression($string)

    local $new_string
    local $dupcnt


    for $i = 0 to stringlen($string)
        if stringmid($string,$i,1) = stringmid($string,$i+1,1) then
            $dupcnt += 1
            continueloop
        Else
            If $dupcnt = 0 then
                $new_string &= stringmid($string,$i,1)
                ContinueLoop
            else
                $new_string &= '[' & stringmid($string,$i,1) & ',' & $dupcnt+1 & ']'
                $dupcnt = 0
            EndIf
        EndIf
    Next

    return $new_string

endfunc

Spaces are not obvious due to the PS font used in MSGBOX. I changed the format of how dups are displayed.

Good Luck,

kylomas

Edited November 25, 2012 by kylomas

[Melba23]

ThiagoJunqueira,

It does nto crash - it just reverses the number!

So we reverse it ourselves so that it comes out correctly in the final string:

expandcollapse popup

#include <String.au3>

; Here is the original string
$sString = "Posting aaaaaaaaaaaa New Topic in Generaaaaal Help aand Suport"

; Declare a couple of variables
$iCount = 0
$sRev_String = ""

; Work backwards through the string
For $i = StringLen($sString) To 1 Step -1

    ; Read character
    $sChar = StringMid($sString, $i, 1)

    ; Test lowercase for case insensitivity - change this is you want to distinguish "A" and "a"
    Switch StringLower($sChar)
        Case "a"
            ; It is an "a" so increase the count
            $iCount += 1

        Case Else
            ; It is something else
            If $iCount Then
                ; If the previous char was an "a" add the reversed count to the string
                $iCount = _StringReverse($iCount) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                $sRev_String &= $iCount
                ; And reset the count ready for the next "a"
                $iCount = 0
            EndIf
            ; Add the char to the string
            $sRev_String &= $sChar

    EndSwitch
Next

; Now reverse the string we have created
$sNew_String = _StringReverse($sRev_String)

; And here is the result
ConsoleWrite($sNew_String & @CRLF)

M23

[ThiagoJunqueira]

Hi guys.

Thanks, i almost there *-*

Yes, a string compressor.

I don't know if will work, but the ideia is:

Example hex: 4D5A90000300000004000000FFFF

The ideia is compress de sequence number like, 0000, FFFF, C1C1C1 [...]

After, the reverse program, will convert again to original "4D5A90000300000004000000FFFF", and create the .EXE, or open with RunPe

This is possible ?

[kylomas]

ThiagoJunqueira,

Are you trying to compress chars or a string representation of hex, these are different animals.

Example hex: 4D5A90000300000004000000FFFF

The ideia is compress de sequence number like, 0000, FFFF, C1C1C1 [...]

What do you mean by "sequence number"?

Backing up a little, why do you want to do this? There may be some other way to do what you want?

kylomas

[kylomas]

ThiagoJunqueira,

Simplified version with support for hex string added...

expandcollapse popup

#include <string.au3>

$str = 'a good boy doeees not             ' & @crlf & _
       'do what goood boys doo not do     ' & @crlf & _
       'However,    goodd   girls   doooo ' & @crlf

$strhex = _stringtohex($str)

msgbox(0,'',simple_string_compression($str))
msgbox(0,'',simple_string_compression($strhex,'hex'))
msgbox(0,'',simple_string_compression('4D5A90000300000004000000FFFF','hex'))

func simple_string_compression($string, $format='char')

    local $new_string
    local $dupcnt
    local $incr_value

    switch $format
        case 'char'
            $incr_value = 1
        case 'hex'
            $incr_value = 2
        case Else
            msgbox(17,'Parm ERROR','Specify either ''char''or ''hex'' in function call')
            exit
    endswitch

    for $i = 1 to stringlen($string)
        if stringmid($string,$i,$incr_value) = stringmid($string,$i+$incr_value,$incr_value) then
            $dupcnt += 1
            if $incr_value = 2 then $i+=1
            continueloop
        endif
        If $dupcnt = 0 then
            $new_string &= stringmid($string,$i,$incr_value)
            if $incr_value = 2 then $i+=1
            ContinueLoop
        endif
        $new_string &= '[' & stringmid($string,$i,$incr_value) & ',' & $dupcnt+1 & ']'
        $dupcnt = 0
        if $incr_value = 2 then $i+=1
    Next

    return $new_string

endfunc

kylomas

Edited November 26, 2012 by kylomas

[jmon]

@kylomas: That would be a great snippet to post in the snippet thread.

[kylomas]

jmon,

Feel free...I don't know what the protocol is for adding to that thread.

kylomas

[ThiagoJunqueira]

Hi

Sorry for the delay guys

The ideia is "compact" a EXE understand ? ?

exe original > 1 mb

exe with hex compress > i don't know, but will be less.

I asked same people about that .. and they spoke that this is impossible ):

[BrewManNH]

Hex isn't going to make it smaller, in most cases it will be larger. Also, have you looked at using UPX or something similar?

[careca]

Tiago, what does this:

Well.. my doubt it's simples i guess, i want to replace some sequence of strings in texts, follow the example:

Search a sequence of "0", "a", don't matter. and substitue for /numbersOFsequence.

Have to do with:

The ideia is "compact" a EXE understand ? ?

exe original > 1 mb

exe with hex compress > i don't know, but will be less.

This?

Orienta-te com o que procuras companheiro!

:S

Edited November 28, 2012 by careca