How to arrange text

[zaini]

can somebody help me how to arrange this text???

How to replace this text files

Player_1_36.swf C:\Documents and Settings\All user 40 kB

044209_734.log C:\Documents and Settings\Logs 40 kB

Into this text files

40 kB C:\Documents and Settings\All user\Player_1_36.swf

40 kB C:\Documents and Settings\Logs\044209_734.log

[FireFox]

Hi,

Use string functions

$text="Player_1_36.swf C:\Documents and Settings\All user 40 KB"
$String=StringRight($text,6)
Msgbox(0,"",$String&StringTrimRight($text,6))

Edited December 2, 2008 by FireFox

[zaini]

Hi,

Use string functions

$text="Player_1_36.swf C:\Documents and Settings\All user 40 KB"
$String=StringRight($text,6)
Msgbox(0,"",$String&StringTrimRight($text,6))

thanx firefox,

but it seem just the 40KB is changing the position,

Player_1_36.swf C:\Documents and Settings\All user

how to change into this?

C:\Documents and Settings\All user\Player_1_36.swf

sorry coz so many asking....

[FireFox]

thanx firefox,

but it seem just the 40KB is changing the position,

$text=Player_1_36.swf      C:\Documents and Settings\All user 
$string=StringLeft($text,20)
Msgbox(0,"",$string&StringTrimLeft($text,20)

how to change into this?

C:\Documents and Settings\All user\Player_1_36.swf

sorry coz so many asking....

Hum? you want to change all sentence? Nevermind...

StringLeft("String",Count)

String > your text

Count > Number of caracters you want to take from the left

[zaini]

Hum? you want to change all sentence? Nevermind...

StringLeft("String",Count)

String > your text

Count > Number of caracters you want to take from the left

Oh..ok..

i try to do it...thanks

[big_daddy]

This should work.

$sText = "044209_734.log C:\Documents and Settings\Logs 40 kB"

$sPattern = "(.+\.\H+)(?:\h)(.+\\+\H+)(?:\h)(\d+\hkB)"
$aReturn = StringRegExp($sText, $sPattern, 3)
If Not @error Then
    $sNewText = $aReturn[2] & " " & $aReturn[1] & "\" & $aReturn[0]
    ConsoleWrite($sNewText & @CR)
EndIf

[zaini]

This should work.

$sText = "044209_734.log C:\Documents and Settings\Logs 40 kB"

$sPattern = "(.+\.\H+)(?:\h)(.+\\+\H+)(?:\h)(\d+\hkB)"
$aReturn = StringRegExp($sText, $sPattern, 3)
If Not @error Then
    $sNewText = $aReturn[2] & " " & $aReturn[1] & "\" & $aReturn[0]
    ConsoleWrite($sNewText & @CR)
EndIf

amazing big_daddy...

you got the exact solution...

thanks....

[big_daddy]

amazing big_daddy...

you got the exact solution...

thanks....

You're welcome.

The pattern could probably be optimized, but I'm still learning regexp.

[SmOke_N]

This should work.

$sText = "044209_734.log C:\Documents and Settings\Logs 40 kB"

$sPattern = "(.+\.\H+)(?:\h)(.+\\+\H+)(?:\h)(\d+\hkB)"
$aReturn = StringRegExp($sText, $sPattern, 3)
If Not @error Then
    $sNewText = $aReturn[2] & " " & $aReturn[1] & "\" & $aReturn[0]
    ConsoleWrite($sNewText & @CR)
EndIf

Good Job!

Another way would be to use RegExReplace for a 1 liner.

Local $sText = "044209_734.log C:\Documents and Settings\Logs 40 kB"
Local $s_pattern = "(?i)(.*?)(\s+)(\w:\\.*?)(\s+)(\d+\s+(?:mb|kb))"
; Working backwards parenthesis 5 group 1st + space + parenthesis 3 group + slash + parenthesis 1 group
Local $s_out = StringRegExpReplace($sText, $s_pattern, "\5 \3\\\1")
ConsoleWrite($s_out & @CRLF)

Edit:

After conferring with big_daddy on the drive letter, and thinking about possible network options, I think this is probably the best method:

Local $sText = "044209_734.log C:\Documents and Settings\Logs 40 kB"
Local $s_pattern = "(?i)(.*?)(\s+)((?:[a-z]:\\|\\\\).*?)(\s+)(\d+\s+(?:mb|kb)\z)"
; Working backwards parenthesis 5 group 1st + space + parenthesis 3 group + slash + parenthesis 1 group
Local $s_out = StringRegExpReplace($sText, $s_pattern, "\5 \3\\\1")
ConsoleWrite($s_out & @CRLF)

Edited December 2, 2008 by SmOke_N