PowerTranslate: ~3 clicks to make your program...

[Valuater]

I just don't get what you mean...

Every program has its own strings that are individual you could only translate a little part of your program. And this (the easy) part, is not hard to translate for anybody who can understand the difficult rest...

Describe me how you want to use it.

peethebee

<{POST_SNAPBACK}>

I have found myself at the cross roads of the language barrier for my XPClean Menu Program. Now when i do a search for my program it is in other countries down-load pages and in another language.... so i need to look harder at opening my own program world-wide as i suggested to you originally..

(by the way i still tell people in autoit about your PowerTranslate)

currently there are more than 8,000 users of *XPClean Menu* since may 2005.

So i am looking at PowerTranslate again and thinking how i could get help to write the languauge files in another language..... then i revert back to how i explained to you about putting the original info then (comma delimited) "." the new language next to it.... and of course the library, i mentioned previously, i really could use a library to reference how to write in other languages.... so i guess i will need to post in ???? chat ???? to get help on translations.

But i am looking at adding your program to translate for my menu system. I am looking at calling PowerTranslate before the first run of my program to ask the "USER" which language he/she prefers. maybe call the "Func _change_lang($lang)" first...

anyway just wanted to let you know

8)

[peethebee]

Hi!

Thank you, that you share your opinion!

Sorry, but I just don't why it should be important to have the original and the translated string in the file??

The Func _change_lang should show an InputBOx to select the lang to the user...

peethebee

[Valuater]

I know you put all your files in "fileman"... so just for safety you might want to know about this

http://www.autoitscript.com/forum/index.php?showtopic=15039#

8)

[autoitNOW]

Don't forget Japanese.

There were some translation scripts like this in VB, Perl, and C some years back.

Kana2roma

http://www.excel.studio-kazu.jp/DL/kana2roma.bas

http://ftp.monash.edu.au/pub/nihongo/kana2rom.zip

http://openlab.jp/skk/skk/tools/convert2sk...te/kana2roma.pl

http://ftp.cc.monash.edu.au/pub/nihongo/cjkvconv.pl (East Asian code sets)

[themax90]

This is funny I suggested this in the Ideas forum, never thought anyone would actually do it, great job dude!

[peethebee]

Thank you, Valuater.

I have a backup of all these files on my hard disc, so I could easily upload them into a new environment.

Thanks AutoIt Smith. Did you test it yourself?

peethebee

Edited September 3, 2005 by peethebee

[theguy0000]

i dont speak any language other than english but this seems like a really good program! i will download as soon as its translated *g*

[peethebee]

Hi!

It is translated into English...

peethebee (German)

[Valuater]

Well... back to scripting this PowerTranslate into my program

here's how it goes so-far

expandcollapse popup

Dim $LSdata, $LSOK = ""; set $LSOK if ran from program menu
#include "GUIConstants.au3"



If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Language.txt") Then Call("Set_Language")


Func Set_Language()

; Shows the filenames of all files in the current directory
$LSsearch = FileFindFirstFile(@ProgramFilesDir & "\QTasc\XPClean\Settings\Languages\*.lng")  

If $LSsearch = -1 Then
    MsgBox(0, "Language Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $LSfile = FileFindNextFile($LSsearch) 
    If @error Then ExitLoop
    $LSline = StringTrimRight($LSfile, 4)
    $LSdata = $LSdata & $LSline & "|"
WEnd

FileClose($LSsearch)

$LS_win = GuiCreate(" PowerTranslate", 240,120)

$button_1 = GUICtrlCreateButton("A&ccept", 20, 80, 60, 24)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$button_2 = GUICtrlCreateButton("PT I&nfo", 90, 80, 60, 24)
$button_3 = GUICtrlCreateButton("C&ancel", 160, 80, 60, 24)

;Create 1 combo box, give focus and populate with contents
$combo_1 = GUICtrlCreateCombo( "", 53, 43, 123, 20)
GUICtrlSetState(-1,$GUI_FOCUS) 
GUICtrlSetData(-1,$LSdata)
GUICtrlSetFont( -1, 9, 550)

$label_1 = GUICtrlCreateLabel( "Please Choose a Language", 20, 15, 250, 20)
GUICtrlSetFont( -1, 10, 600)

GuiSetState (@SW_SHOW)

While 1 
    $LSmsg = GuiGetMsg()
    Select
        case $LSmsg = $button_3 Or $LSmsg = $GUI_EVENT_CLOSE
            If $LSOK <> "" Then Return
        ;SoundPlay ($Sound_grp,1)
            Exit
        case $LSmsg = $button_2
            MsgBox(64, "PowerTranslate Info", "A Language choice is needed for  *XPClean Menu*  to Launch Correctly  " &@CRLF&@CRLF & "PowerTranslate was Designed by Peethebee and Modified by QTasc   ")
        case $LSmsg = $button_1
        ;SoundPlay ($Sound_clk,1)
            $LSID = GuictrlRead($combo_1)
            If $LSID = "" Then
                MsgBox(64, "Error", "No Language File Chosen")
            EndIf
            If $LSID > "" Then
                MsgBox(64, "OK...", "A Language File was Chosen")
            ; copy language.txt to script file
            EndIf
            
    EndSelect
WEnd

EndFunc

i tried to put the info you requested for use of PowerTranslate

8)

sorry the [ code ] is broken

[peethebee]

Hi!

I will test this piece of code.

The credits do not have to be placed very prominent...

peethebee

[Qsr Nrwn]

When you have another mother tonge than english you appreciate a lot this kind of programs...

Thanks, for this great (PowerTranslate) program, it helped me a lot!!

Keep on working!!

[sandman]

Peethebee, any chance that you could upload this to the new fileman?

Thanks.

sandman