JustinReno Posted September 24, 2007 Share Posted September 24, 2007 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.exeI'de be very happy to see any comments on it! Thank you!!!!!!!!!!!!!!!!!!!!!!! Link to comment Share on other sites More sharing options...
evilelf Posted September 24, 2007 Share Posted September 24, 2007 http://h1.ripway.com/mrreno/SimpleNotepadSpanish.exesorry i dont run that Link to comment Share on other sites More sharing options...
JustinReno Posted September 24, 2007 Author Share Posted September 24, 2007 What? Link to comment Share on other sites More sharing options...
evilelf Posted September 24, 2007 Share Posted September 24, 2007 Is this a link that will open a program and run it? .exe Link to comment Share on other sites More sharing options...
JustinReno Posted September 24, 2007 Author Share Posted September 24, 2007 Yes, its my Simple Notepad, do you actually want the source? Why not just scan it with an antivirus software? Link to comment Share on other sites More sharing options...
evilelf Posted September 24, 2007 Share Posted September 24, 2007 (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 September 24, 2007 by evilelf Link to comment Share on other sites More sharing options...
JustinReno Posted September 24, 2007 Author Share Posted September 24, 2007 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 Link to comment Share on other sites More sharing options...
evilelf Posted September 24, 2007 Share Posted September 24, 2007 Looks nice and thanks for the source. Link to comment Share on other sites More sharing options...
JustinReno Posted September 24, 2007 Author Share Posted September 24, 2007 Your welcome, if you want to use it, besure to put credit to me! Link to comment Share on other sites More sharing options...
evilelf Posted September 24, 2007 Share Posted September 24, 2007 Its not 2 late you can add a msgbox. Link to comment Share on other sites More sharing options...
JustinReno Posted September 24, 2007 Author Share Posted September 24, 2007 Add a Msgbox Were? Link to comment Share on other sites More sharing options...
Nahuel Posted September 24, 2007 Share Posted September 24, 2007 (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: AbrirSalve:Guardar (Salvar means 'to save' as in 'save a life' )Impresión: ImprimirCorra Escritura AU3: Correr Como Script .au3 (loving that option)Salida: SalirRedacte: 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 HoraTexto Inverso: Invertir TextoRedacte a Conde: I have absolutely no idea what this means or does. The sentense makes no sense.Copia: CopiarPasado: Pegar (aparently you translated 'past' instead of 'paste')Deshaga: DeshacerVuelva a hacer: RehacerTipo 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: HablarHable texto: Hablar textoPare Hablar: Parar de hablarThe about window makes no sense at all. I will translate for you if you tell me what the original one says. -edit-typoThere'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 September 24, 2007 by Nahuel Link to comment Share on other sites More sharing options...
JustinReno Posted September 24, 2007 Author Share Posted September 24, 2007 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! Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now