StringReverse problem..

[Underdogger]

Hi, guys.

I got a new problem here..

Example : I want to input "abc" in textbox and reverse it into test.txt file dynamically..

I want the correct value is : "cba"

Error value : "abacba" in test.txt

expandcollapse popup

#Include <String.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 262, 72, 504, 286)
$Input1 = GUICtrlCreateInput("", 48, 24, 177, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUIRegisterMsg($WM_COMMAND, "_KeyWordOnInputBoxEvent")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd




Func _KeyWordOnInputBoxEvent($hWnd, $imsg, $iwParam, $ilParam)
Local $setHK = False
$nNotifyCode = BitShift($iwParam, 16)
$nID = BitAND($iwParam, 0x0000FFFF)
$hCtrl = $ilParam
$time = 0
If $nNotifyCode = $EN_CHANGE Then
If $hCtrl = GUICtrlGetHandle($Input1) Then
If GUICtrlRead($Input1) <> "" Then
$startcheck = _StringReverse(GUICtrlRead($Input1))
$TEST = FileOpen("test.txt", 1)
FileWrite("test.txt", $startcheck)
FileClose($TEST)
EndIf
EndIf
EndIf
Return $GUI_RUNDEFMSG
EndFunc

Best Regard

Edited February 23, 2013 by Underdogger

[Melba23]

Underdogger,

How is AutoIt supposed to know when it is supposed to reverse the string? It cannot read your mind.

If you only want to reverse after 3 characters then you need to add a StringLen condition into the code and only reverse/write when the count is correct.

And by the way there is no need to open and close the file in the handler - especially as you do not use the handle to write to it anyway.

M23

[Kyan]

you could read it backward with stringmid, try this

ConsoleWrite(_reverseText("Autoit Text Message")&@LF)

Func _reverseText($intex)
Local $rev = ''
For $x = StringLen($intex) To 1 Step -1
$rev &=StringMid($intex,$x,1)
Next
Return $rev
EndFunc

[guinness]

you could read it backward with stringmid, try this

ConsoleWrite(_reverseText("Autoit Text Message")&@LF)

Func _reverseText($intex)
Local $rev = ''
For $x = StringLen($intex) To 1 Step -1
$rev &=StringMid($intex,$x,1)
Next
Return $rev
EndFunc

There are more efficient and less 'memory intensive' ways of reversing a string.

For example >>

[Kyan]

There are more efficient and less 'memory intensive' ways of reversing a string.

For example >>

I really need to know how to work with dll's

Func _StringReverse($s_String)

    Local $i_len = StringLen($s_String)
    If $i_len < 1 Then Return SetError(1, 0, "")

    Local $t_chars = DllStructCreate("wchar[" & $i_len + 1 & "]")
    DllStructSetData($t_chars, 1, $s_String)

    Local $a_rev = DllCall("MSVCR100.DLL", "ptr:cdecl", "_wcsrev", "struct*", $t_chars) ;<<<<<<<<<<<<
    If @error Or $a_rev[0] = 0 Then Return SetError(2, 0, "")

    Return DllStructGetData($t_chars, 1)
EndFunc ;==>_StringReverse

This works to reverses the string without using msvcrt.dll. Not sure which versions of Windows it would work on because of the dll used, but someone with more information than me can tweak as needed.

[Underdogger]

But Is it possible to write it into test.txt simultaneously ?

Typing "a" > test.txt gonna show "a"

then typing "b" > test.txt gonna show "ba"

then typing "c" > test.txt gonna show "cba"

Edited February 23, 2013 by Underdogger

[Kyan]

But Is it possible to write it into test.txt simultaneously ?

Typing "a" > test.txt gonna show "a"

then typing "b" > test.txt gonna show "ba"

then typing "c" > test.txt gonna show "cba"

in a edit or text box you just read the input text after you hit OK or triggred it somehow

you cannot wait until who is inputting the text to finish then read the inserted text and reverse?

[guinness]

I really need to know how to work with dll's

That API should only be use for low-level processes, not AutoIt. I was aiming more towards my version.

[Underdogger]

Thanks for all guys who was replying me :-)

Sorry for my weird thoughts~