Sign in to follow this  
Followers 0
JustinReno

Spanish Translation Testers

13 posts in this topic

I'm translating Simple Notepad into spanish, I know there are easier ways, but this is the why I did it. I translated it into Spanish, If anyone has fluent Spanish, can you please tell me if the spanish version of Simple Notepad makes sense, and is usable?

Link: http://h1.ripway.com/mrreno/SimpleNotepadSpanish.exe

I'de be very happy to see any comments on it! Thank you!!!!!!!!!!!!!!!!!!!!!!!

Share this post


Link to post
Share on other sites



What?

Share this post


Link to post
Share on other sites

Is this a link that will open a program and run it?

.exe


Share this post


Link to post
Share on other sites

Yes, its my Simple Notepad, do you actually want the source? Why not just scan it with an antivirus software?

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Just a new computer i do not care to have this one brake. :)

about what 3 days old max.

Also my friend would be looking this over, not me.

Edited by evilelf

Share this post


Link to post
Share on other sites

Ahhhhhhh, well if you want to run it from the source, here it is:

CODE

#include <GUIConstants.au3>

#include <String.au3>

#include <Misc.au3>

#include <File.au3>

Global $oSpeech = ObjCreate("SAPI.SpVoice")

$Form1 = GUICreate("", 627, 447, -1, -1, $WS_OVERLAPPEDWINDOW, $WS_MAXIMIZEBOX);, 193, 115)

$Edit = GUICtrlCreateEdit("", 0, 0, 625, 425)

;File Menu

$File_Menu = GUICtrlCreateMenu("Archivo")

$OpenItem = GUICtrlCreateMenuItem("Abra", $File_Menu)

$NewItem = GUICtrlCreateMenuItem("Nuevo", $File_Menu)

$SaveItem = GUICtrlCreateMenuItem("Salve", $File_Menu)

$PrintItem = GUICtrlCreateMenuItem("Impresión", $File_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $File_Menu)

$RunScriptItem = GUICtrlCreateMenuItem("Corra Escritura AU3", $File_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $File_Menu)

$ExitItem = GUICtrlCreateMenuItem("Salida", $File_Menu)

;Edit Menu

$Edit_Menu = GUICtrlCreateMenu("Redacte")

$ICTItem = GUICtrlCreateMenuItem("Meta Tiempo Actual", $Edit_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $Edit_Menu)

$RTItem = GUICtrlCreateMenuItem("Texto inverso", $Edit_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $Edit_Menu)

$WordCountItem = GUICtrlCreateMenuItem("Redacte a Conde", $Edit_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $Edit_Menu)

$CopyItem = GUICtrlCreateMenuItem("Copia", $Edit_Menu)

$PasteItem = GUICtrlCreateMenuItem("Pasado", $Edit_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $Edit_Menu)

$UndoItem = GUICtrlCreateMenuItem("Deshaga", $Edit_Menu)

$RedoItem = GUICtrlCreateMenuItem("Vuelva a hacer", $Edit_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $Edit_Menu)

$FontItem = GUICtrlCreateMenuItem("Tipo de letra", $Edit_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $Edit_Menu)

$ScramblerItem = GUICtrlCreateMenuItem("Trepe Documento", $Edit_Menu)

$MenuSep1 = GUICtrlCreateMenuItem("", $Edit_Menu)

$SpellCheckItem = GUICtrlCreateMenuItem("Deletree Cheque", $Edit_Menu)

;Speak Menu

$Speak_Menu = GUICtrlCreateMenu("Hable")

$StartSpeakItem = GUICtrlCreateMenuItem("Hable Texto", $Speak_Menu)

$StopSpeakItem = GUICtrlCreateMenuItem("Pare Hablar", $Speak_Menu)

;About Menu

$MenuItem13 = GUICtrlCreateMenu("Acerca de")

$AboutItem = GUICtrlCreateMenuItem("Acerca de", $MenuItem13)

GUICtrlSetFont($Edit, "16", "", "", "Times New Roman")

GUISetState()

AnimateTitle($Form1, "Bloc sencillo 1,0", 100)

While 1

$Time = "" & @HOUR & ":" & @MIN & ":" & @SEC & ""

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $OpenItem

$msg = MsgBox(20, "Bloc sencillo", "¿Quiere usted salvar el documento actual?")

If $msg = 7 Then

$FileOpen = FileOpenDialog("Abra el Archivo de SNF", "", "El Bloc sencillo Archiva (*.SNF)")

WinSetTitle("Bloc sencillo", "", "Bloc sencillo - " & $FileOpen & "")

GUICtrlSetData($Edit, "Por favor espera mientras el archivo es unencrypted... ")

$DeFile = FileRead($FileOpen)

$Docde = "blah"

$Decrypt = _StringEncrypt(0, $DeFile, $Docde, 3)

GUICtrlSetData($Edit, $Decrypt)

EndIf

If $msg = 6 Then

$Readedit1 = GUICtrlRead($Edit)

$FileSaveDialog = FileSaveDialog("Salve el Archivo de SNF", "", "El Bloc sencillo Archiva (*.SNF)")

GUICtrlSetData($Edit, "Por favor espera mientras el archivo es cifrado y es salvado...")

FileDelete($FileSaveDialog)

$docen = "blah"

$Encrypt = _StringEncrypt(1, $Readedit1, $docen, 3)

$FileSaveDialog &= ".SNF"

$FileSaveDialog = StringReplace($FileSaveDialog, ".SNF.SNF", ".SNF")

FileWrite($FileSaveDialog, $Encrypt)

WinSetTitle("Bloc sencillo", "", "Bloc sencillo - " & $FileSaveDialog & "")

GUICtrlSetData($Edit, $Readedit1)

MsgBox(0, "Bloc sencillo", "El archivo Salvó.")

$FileOpen = FileOpenDialog("Abra el Archivo de SNF", "", "El Bloc sencillo Archiva (*.SNF)")

WinSetTitle("Bloc sencillo", "", "SBloc sencillo - " & $FileOpen & "")

GUICtrlSetData($Edit, "Por favor espera mientras el archivo es unencrypted... ")

$DeFile = FileRead($FileOpen)

$Docde = "blah"

$Decrypt = _StringEncrypt(0, $DeFile, $Docde, 3)

GUICtrlSetData($Edit, $Decrypt)

EndIf

Case $NewItem

$msg = MsgBox(20, "Bloc sencillo", "¿Quiere usted salvar el documento actual? ")

If $msg = 7 Then

WinSetTitle("Bloc sencillo", "", "Bloc sencillo")

GUICtrlSetData($Edit, "")

EndIf

If $msg = 6 Then

$Readedit1 = GUICtrlRead($Edit)

$FileSaveDialog = FileSaveDialog("Salve el Archivo de SNF", "", "El Bloc sencillo Archiva (*.SNF)")

GUICtrlSetData($Edit, "Por favor espera mientras el archivo es cifrado y es salvado...")

FileDelete($FileSaveDialog)

$docen = "blah"

$Encrypt = _StringEncrypt(1, $Readedit1, $docen, 3)

$FileSaveDialog &= ".SNF"

$FileSaveDialog = StringReplace($FileSaveDialog, ".SNF.SNF", ".SNF")

FileWrite($FileSaveDialog, $Encrypt)

WinSetTitle("Bloc sencillo", "", "Bloc sencillo")

GUICtrlSetData($Edit, $Readedit1)

MsgBox(0, "Bloc sencillo", "El archivo Salvó.")

GUICtrlSetData($Edit, "")

EndIf

Case $SaveItem

$Readedit1 = GUICtrlRead($Edit)

$FileSaveDialog = FileSaveDialog("Salve el Archivo de SNF", "", "El Bloc sencillo Archiva (*.SNF)")

GUICtrlSetData($Edit, "Por favor espera mientras el archivo es cifrado y es salvado...")

FileDelete($FileSaveDialog)

$docen = "blah"

$Encrypt = _StringEncrypt(1, $Readedit1, $docen, 3)

$FileSaveDialog &= ".SNF"

$FileSaveDialog = StringReplace($FileSaveDialog, ".SNF.SNF", ".SNF")

FileWrite($FileSaveDialog, $Encrypt)

WinSetTitle("Bloc sencillo", "", "Bloc sencillo - " & $FileSaveDialog & "")

GUICtrlSetData($Edit, $Readedit1)

Case $PrintItem

$Readeditprint = GUICtrlRead($Edit)

$Filewriteprint = FileWrite(@TempDir & "\printtest.txt", $Readeditprint)

$File = @TempDir & "\printtest.txt"

_FilePrint($File)

Sleep(500)

FileDelete(@TempDir & "\printtest.txt")

Case $RunScriptItem

$Readau3 = GUICtrlRead($Edit)

FileWrite(@ScriptDir & "\script.au3", $Readau3)

Run('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & @ScriptDir & '\script.au3"')

Sleep(500)

FileDelete(@ScriptDir & "\script.au3")

Case $ExitItem

Exit

Case $ICTItem

ControlSend($Form1, "", $Edit, $Time)

Case $RTItem

$ReverseRead = GUICtrlRead($Edit)

$Reverse = _StringReverse($ReverseRead)

GUICtrlSetData($Edit, $Reverse)

Case $WordCountItem

$Wordcount = GUICtrlRead($Edit)

$wordsplit = StringSplit($Wordcount, " ")

$words = $wordsplit[0]

$finwords = $words

MsgBox(0, "Bloc sencillo", "Las palabras: " & $finwords & "")

Case $CopyItem

Send("^C")

Case $PasteItem

Send("^V")

Case $UndoItem

Send("^z")

Case $RedoItem

Send("^y")

Case $FontItem

$cfont = _ChooseFont()

$Font = GUICtrlSetFont($Edit, $cfont[3], $cfont[4], $cfont[1], $cfont[2])

$Color = GUICtrlSetColor($Edit, $cfont[7])

Case $ScramblerItem

$sentence = GUICtrlRead($Edit)

If $sentence <> "" Then

GUICtrlSetData($Edit, "")

GUICtrlSetData($Edit, _Sentence_Scramble($sentence))

EndIf

Case $SpellCheckItem

;Not Implemented yet.

Case $StartSpeakItem

$texttoread = GUICtrlRead($Edit)

_Talk($oSpeech, $texttoread, 3)

Case $StopSpeakItem

$oSpeech = ObjCreate("SAPI.SpVoice")

Case $AboutItem

MsgBox(0, "Bloc sencillo", "El Bloc sencillo 1,0 Registran en el registro de la propiedad literaria Justin Reno 2007. Documente Desmodulador por Pelotillero.")

EndSwitch

WEnd

Func _Talk(ByRef $o_Speech, $s_text, $s_voice = 3)

Local Const $SVSFlagsAsync = 1

Select

Case $s_voice == 1

$o_Speech.Voice = $o_Speech.GetVoices ("Name=Microsoft Mary", "Language=409").Item (0)

Case $s_voice == 2

$o_Speech.Voice = $o_Speech.GetVoices ("Name=Microsoft Mike", "Language=409").Item (0)

Case $s_voice == 3

$o_Speech.Voice = $o_Speech.GetVoices ("Name=Microsoft Sam", "Language=409").Item (0)

EndSelect

$o_Speech.Speak ($s_text, $SVSFlagsAsync)

EndFunc ;==>_Talk

Func AnimateTitle($hGUI, $sTitle, $iBuf)

$sTitle = StringSplit($sTitle, "")

For $i = $iBuf To 0 Step - 1

WinSetTitle($hGUI, "", _StringRepeat(" ", $i) & $sTitle[1])

Next

Local $s

For $i = 1 To $sTitle[0]

$s &= $sTitle[$i]

WinSetTitle($hGUI, "", $s)

Sleep(5)

Next

EndFunc ;==>AnimateTitle

Func _Sentence_Scramble($sentence)

Local $randomList

Local $scrambled_Sentence

$randomList = StringSplit($sentence, " ")

For $i = 1 To $randomList[0]

$scrambled_Sentence &= _Word_Randomize($randomList[$i]) & " "

Next

Return StringTrimRight($scrambled_Sentence, 1)

EndFunc ;==>_Sentence_Scramble

Func _Word_Randomize($word)

If StringLen($word) < 4 Then Return $word

Local $literal

For $i = 2 To Int(StringLen($word) / 2)

$literal = $literal & StringMid($word, StringLen($word) - _

$i + 1, 1) & StringMid($word, $i, 1)

Next

If Mod(StringLen($word), 2) Then

$literal = $literal & StringMid($word, $i, 1)

EndIf

Return StringLeft($word, 1) & $literal & StringRight($word, 1)

EndFunc ;==>_Word_Randomize

Share this post


Link to post
Share on other sites

Looks nice and thanks for the source.


Share this post


Link to post
Share on other sites

Your welcome, if you want to use it, besure to put credit to me!

Share this post


Link to post
Share on other sites

Its not 2 late you can add a msgbox.


Share this post


Link to post
Share on other sites

Add a Msgbox Were?

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

Suggestions:

Bloc sencillo sounds... well, not good. You can keep the name in English. Or use the word 'Simple', which also means simple :)

Don't use verbs in imperative tense (ie, 'hable', 'redacte', etc). Use infinitive (Hablar, redactar, etc.). It's really confusing like that and hard to understand.

So, do the following replacements:Abra: Abrir

Salve:Guardar (Salvar means 'to save' as in 'save a life' :P )

Impresión: Imprimir

Corra Escritura AU3: Correr Como Script .au3 (loving that option)

Salida: Salir

Redacte: Not sure what you mean by this.. Maybe 'Edición' or 'Redactar' (Edición sounds better IMO)

Meta Tiempo Actual: This one made me laugh, sounds so argentian.. Use: Introducir Hora

Texto Inverso: Invertir Texto

Redacte a Conde: I have absolutely no idea what this means or does. The sentense makes no sense.

Copia: Copiar

Pasado: Pegar (aparently you translated 'past' instead of 'paste')

Deshaga: Deshacer

Vuelva a hacer: Rehacer

Tipo de letra: Fuente. (tipo de letra is not that bad, but all the programs use fuente)

Trepe documento: Not sure what this does.. it mixes the words? I can't think of a spanish expression. Tell me the one in english.

Deletree Cheque: This means 'Spell the check' haha, use: Revisar Ortografía

Hable: Hablar

Hable texto: Hablar texto

Pare Hablar: Parar de hablar

The about window makes no sense at all. I will translate for you if you tell me what the original one says. :)

-edit-

typo

There's an error iin your script. When I go to choose the font type and press cancel, I get the Subscript used with non-array variable.

Edited by Nahuel

Share this post


Link to post
Share on other sites

A website translated it for me, so not all of them will make sense. And there is no bug in my script, its the misc.au3, it happens to me all the time, the _choosefont thing is quarkey.. Thanks for the suggestions, I will probably implement them! :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0