Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Онлайновый перевод (Google, Bing, Яндекс)
Goto page 1, 2, 3, 4, 5, 6, 7, 8  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Программное обеспечение printer-friendly view
View previous topic :: View next topic  
Author Message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Fri Dec 31, 2010 15:53    Post subject: Онлайновый перевод (Google, Bing, Яндекс) Reply with quote

Собственно, искал небольшой англо-русский (и обратно) переводчик, а то qDictionary, которым пользовался раньше, подглючивает на современных OS (заброшен лет шесть назад), а для использования интернет-сервисов надо открывать браузер, что не всегда удобно. И тут нагуглил API для Google перевода. Вот, набросал хэтэашку, самому понравилось, может, еще кому пригодится.
Code:
begin 644 EN-RU.zip
M4$L#!!0````(`+T3DSUMIE!]^1````(C```)````14XM4E4N:'1AA%39;M-`
M%'UNI?[#$!Y8VL1Q0J%-"5*2MFE#%U32D.9M8D]B%V^UQTD*0H("`L0FP2N+
M^(-2")2M_(+]1YRQ$P@22R3',_?><^ZY]X[G_+'Y]5)UZ]("T;AID$N;Q97E
M$DDD)>E*MB1)\]5Y4E^JKJX0.94FE[FK*UR2%M82)*%Q[N0DJ=OMIKK9E.VV
MI>J&U!,LLH`-EDDOPJ14KB8N3(R?C[+T3,/R\G]@D&=G9V-@',RHBC<AY[G.
M#7;AO!2]8Y/)."6"(LEV?+V33Y1LBS.+)ZN[#DL0)=[E$YSUN"0HYXBB4==C
M/+]974S.)(CT'Z(5:K5]VAXE<_V_P^K)S4*R9)L.Y7K3&$4M+^3_D6[U<E5C
M)OLC<HMY/X$:ISGJ.(:N(,RV8,-OQ+!&399/E*LNM;QDG2;B`!U<O[6Z;=MM
M@Z44VY1:M"/<*?P-H]5\8JE:<)SAWK*86[1=E;GYA#6,,FE/-_5KK.AS#O81
MAV[]V6$A4YNBMA&;I[BV88P:F,$44<FH3;>@=MGR.+44H'>9-_!TF.M%L=G4
MF=@T;!1*,]$]4<P)C1G."9C'@M=!/[P9](-WX>W@7?"%=%(`3HPG2;`??!.6
MX(@D27@SO!W>"F\%G[$=\1T&GR(CWB0Y,1Z\"MX&1P(3WH-U?XH$A_!_%[;P
M4?`1)$_"!\%^^)3`+!(?B`#HX&(\!N5L9!`3XR?#O4C<6XCK8WT+P.!]<(3%
M'DS?2?"9(/>W<$^005-?V$]-C$/*RZ!/@N_A0_CVH1(10#TB@'T-^H`\"N\C
M]QY,P0&B;H$56`"/@L]@VH\2$>S>8W>$^@"'FLA]&#5$5`BR0W),I,/Z@]B)
M3`+[113Y.-P#X!V(%N5,*M+U/#@"^"D:=(A`<'P!$FT0<G+POX'HFY$)]&-C
MBS)LSR#PKI`R-K;@*5.D8/#)Q3-PO!#5IT8J@.YA`8!F$#(<\,$`;W'F3I$2
M=XW)&@0A`.Y#4(CZXKS0=3(..!55(I+$39@8#^\(=1CE0R2*^X3I(`JMAP4;
MD>PC0H8]G$(.3(8,CD8?R_`>7E^G2'8ZC;:"_BO2PHGG`.$">!#QAG=B]1%S
M/+BHPH'6;\-3`5U[\2&+3JAP!-^'A>.!/%%"^!!S'*(CQ&=DBV>%>#B@`=&#
M<]J/)C=")`[#?C3&,<P)5@3T!25P2(PVD9.9M)P^-19]<=+@DXN_/X_O&HQP
M7,.#VU?QO(1PX7>:7&_A<LL1RW9-:A!YQNF1$U7=9!Y98UVR89O4.C%'3.JV
M=2M'TG/$H:J*6T"L;\0D35O=)==MW``MP^[FB*:K*K.&7I&2NHR2ZTVJ7&V[
MMF^I2<4V;#='(-*?(R-VESF,1G(&2^2S/1VW$)+3IF<;/F=SA-M.CF2<WH@:
M.2VVOT10G]N@%G<E$@&HJT1V>A#7U@P\?*CO.#20ZP9K\9AR5(YNTC;+$=\U
M3IY0*2[\R""U]=9<DWKL[)FIC;117I\WM'*AL%6XI!0*);[(-HNUUK7*NE:M
MK.OSM0U]>[JQ+4^K^J:F&37'W:X5;=.H<6M1WK7*LJR5*[*9-20]6Y%,LW;6
MR1BSCN67MC.3"^[2Q;*;S:SNU&G%6S)7/4?=WIJ>S:KG:FO59F.SMN*H=;JA
M;='B.7:NN+UU3KW:6-%<>D[VFVXOJ\Y4JILS%;6NR%=J?$.IK_5:]1FYO;5:
MR:A>XPQ;V[`:LSVT<;&GJ(VTNEZ\VEBOF0U?W:&^8S28X]))WFE.%GL*J^TJ
M?G&:,14/[RKK/<0;9YDO8S\]TUJ>7'.7RU5N[]#.<D;M-*XT;(<I3B6C[33*
M[<[.Q27M[)6&22FS=JAFX_6#O>K6F1,,@J_BSK(H?G(H7)`Q\3C"`1TY'Q_A
M(_GE'0I7+EUZI)5V9[2SU6H`;0R+D8*%;MMIG@>07B.8YVV=D7-;##!G'@;-
M$=\6'-LRG((9C>S`ZP\POH]DGDY#A-?B<?="?QQFRJ*+]X%E"()F$8]E'PK*
M+`J^SGQM76*]I5K#B4:[T59G>UZ_E<E8M-G(S=6;5>O)*D>PXLO,BC1<563?
M8#W9^`"*U[D6+;K9"`.15&W@+-0E(M4(_JUU?GHYJ=?#^35`Q.T=)!@>HMKL
MHMY6JM4]1*_?Q5]<,E9&\2[57QXTA`@-=Z.9*F,`E3'-#X.!'P:[6QI_6)%R
MKKM^Y<2WRR*LVS)-8LUL8NT<PEJ>!!=YZ':'6+$D>'''N$WDA!4YI%6Y9+YX
MY'K[/RN@;"VFBD=*VU%!_[Q,;>^2+O:&*>Z?Q?0,D@E'V8D'W-439AX*'Q7Q
M(>E793KW;GKH;H98929X998$]#L2J48*:C4-NY:$^T(C!*!+:62=#+!EM;)P
MV5A('.QN-F1E]M1#`W2E06;73K:*,*[ZN;(SR,?^\?'Q<R)4H;ZC!#_>#7F.
MQ1M3!T!HRHE&3Q0;GSVI)B/U`C.%AP,];@L]<CM-*">IZ1<5#12I#11%"`=-
M/%%&`S3]DV.BDV7FR^Z8U*^S*VT7O.A2(QE2+_]ITKPSNN[C4IO`F("$+L&L
M-F`NW^"ZEJ6]N+6N'=WE?T'@^0QS?G7M+13BW_77'_T6HB/#0E&C!%[F>:OG
M3?XW8EZH>>'H/GC=TC6Y/29+E43!>CV$5&]71Y-H[-M;:D[Y-H1H`H"PVO,;
M6S1;_338H/42T1.">,'X.EW#6ZG,-Q)B8J/%NNWO@S$@T\L(:2Z`ZJ1KP81V
M/3^"/@V-/IB5='C./6.;?*+'NF*.XLG)363(5PLML@C](.W;*SACV="_A;;N
MZXV6.Q:2S^[4%TKOLLEDN=]D%\1U)#\Y.4C)W!323;E#7XP;EP\$?G*M0.4;
M-Q&3C8VODA=JUW5%MR8#7-7K9XUR#4\6_.2_!3=?^`:M4T%H^#HPE9;*$4F9
M>E$0ZLKOCU(6!>?LO3NQ]6@P^Z84GNS<LY$]R9ZM=IG^WAEFZ@T92=`D7P4U
MKG-75R4=99SN>9`%H]T83AO\DR<#7<K+*!5F?%<=Z(7UMT9VB\5R+_'"9,V/
M`S-[?./KM<T.+^[X?%A509+>[_7(\ZH1GMXE<"RCRYITEVAO?5//2Q;.$]].
MT33KS*U5T9'6U16O"^!04R,9Z$<^K?"43^46Z3W13"5G!PL-Y&\&\(2F`<LF
M:]J@.<?DQFDR'_51YW$A&JXY!'T?NY[?=><IV"[0AG$,ILGRXN&L79F7UJ^?
MO_S)K06NG[XO;=W\H^`*\0U$.KLFQH.:A?<;M)5M#NP,J.+E+93^H5*/GX_+
M*5@FI2[&77I=.N5H;_Z378P+$AOSFHT)-3(RQ?N)P!D&<FB:SC=L7^)%)UVT
MG>_(IMTV5YJ7[KVW[!;.DA8*[%5@6X(4TWEU[$?%M)Z&^:)T(##H=)4A('B_
M&(3;$;^GI#DD4L^>;:X+63#'F_Y\ON!%0^1;A81<X9QT'K0527T8]&U8*"-.
M@!D_#N[AHPB>#S9UI_$E=XDFT<AH-]'\F@>GIW)?/AVPQ1GV\LOP3-:M#)TD
M\]N0.;[IH!%3$[]F^9;2D'RH5DT]Z8&9]Z5#M)V+%A:62I5*#Q;0RN31+@'5
MJ,_"^N4`*KOQA"QIJ2S#X549<>\D=6A#K;:3*HP<C%X?ZF5CL6^'()8,CZ@$
M&.^&VU"WS9:O[IT"KJS,BQT@H#;[Y?570WV[)=;R6,@6WO,>7Z0(;1PW-EI2
MM=MYWFDB"52[T;#2R>RAAEVEL+D/]1,1JH!,8+L;<MDB^DV+.DA3=V[!Q[&!
M/'"V)HQ:@G:4*8+4%%EVZ`%-96VPQ(70A->H8S&']1\*FJ8M7]EZXJ^-\S1%
M,%<&7^S*D3R,;]76\J6>L&.JN>PN@*A4X[[F_^-'L]:[G"80Q%_EF@\%)M::
M:-ID;#H#B`I*C"A-]1LB_P3!<!BP,_W2Y^I,7Z&/U#T0T<3$I.UTFIDH+G>_
MW=_NWMZY^+_^Y1L7NV?CXF1Q>^-21+GAR+VVP,O'0['9JK%RI=6XNJUVH=:[
MK-46>BWSFE,6\ER6N!Y[W7)79^KMC5BYXV>2S_8#@1]6N[=5V?\RZ`O*YUA9
M]65N5A&%BCYP5*P/574Q\%7]5@U&+<NJL*8Q>"?WV8Y_>V:-NQ>6T.+NK`HO
M&%,A&0V5!K=B/S7UCB;.M4A8C?%8GR3]``I<S.J^=H'GUO"Z^F6,0\&63%E+
MA`:7-)MQ0Q<XBU.Y\Z1C<]VYW!KC8[$ZF@>NJZ[&"EOYY$P-?*RWM,@(A8X]
M$6^'\ED\JLW$L26[/<E/1L';N%U][PX[5N56O.":K'C58_E9A^-'R6P<J[WI
MTCYIN4Y-ZBPEMB_=>=K=0)^-G)Z4=,SS8WU6TYN&QBY'RL7YT&^W!=&UFM?M
M>-X=M!OFN>M>+W'3555K@I4J9POC1JO5Y+ZP6-?UZ<W<3I)$ZH[X=J,M*I61
M:I_/%%:QK5K2OVHV^.%<O6F)TK7**G&R$B5>$DSA1*V,1%YL\S:KJ%?S3G/&
MGME!S+(>'PYBMC]:\*+2:B6RJXWD*[<Q7$B\TI46KMN86\(9R[[/-Z(/;W&T
MRIN`6`^=1;3]77.6B8Z0EW7O0"X-,M%';'AF.30P=*B&`5T[KY10];3"U`$R
M'?$HIG:G[8$%Z1H9X5!_K,DVP]K".?I8Z'BYW>N&EQ8B?5)".$:7*`J71CV3
MKW5Y@3:EJ7PV54+4"<6LAYA+/VVL(2U&-`.;N!$M0Q]-`WU)OK:7\PO!,]+/
MNN?`VXTSC6QP^CT(^P40;8,<%QY@F":BIW%I:@-0=@LAA\AL]`'5WC%(\XPP
MHBG2VR*=E9\_TJ[<-])`25L;66OFYW?2FMCT@5YM^*+"+LO(3>)6(CC(\)<4
M4TY3J!P3@NB2V(+>HE,$#;_3,P8=(VJ14"^#LE.B!,HF*.^>CQ(N\=\R"*">
M:]#]B%@1HN\%`\>%H$BS/,'*FT8F?<!!:0^9/$,H(9!`8H*=5*E03<.*7'H1
M*'/,_$..3@8P!P@7"L!S#Z?7OS+U0S',.L]TD3Y?D>%AXR7T#UN7$P>=?XD^
M&/^'],'$O?2+)"FH8R/J^5VH,KSF>>3H7S`/?-=8+4`YSC"VBMV'M^NG.!_2
MKEW@DSIU>62:M!;33$FS:8:I'X$\J\O[[I`>_N515A(>94(&`1522V%65F4W
MG4`'-(*S")@)`/#L:8.3/E$"SU&O_0E>U+-7X0J]MJ(Z^4>*NGV'WFU;P])J
MGC!4'46V@]<K+VL!\J3A2'`W_3_J4!SVS\\>DTRT<*VEB-;63D#VEYSM'NX`
M_R+N'G#W_A5W",SO<C<U#]\G#QE',HU<;.VX>U(571:+L*A]9!$:=V0DC..#
M*?CG$IU4MTJAE>K/]K^U!7"K*!I/%5$0/;M<ECW#MR(;?21/#YB'"@N5AS44
M:?8R#;NEX.M#3TZ#V'^!(R^>WF,.N";-WR>K]`'F!<`NN2<L/GW/H-CQ@2<<
M:0)LP.RG$N5T.U-BVX'U13_KC`1!J+W;<<;6:95;T7!6?7,">;=;'@]'B:P%
M"-7$,(/06&@X,K;"M8E63C$CE"7")\U;&IM%]BCR'V`6Y]I%5$+39%W-2BB"
MR\+KSF(2:.&TH44:B2MYI]-#\]%V+*)D-YT+5P)S1!,M#J#"K3JB'1AT6H%!
MKU^#WCIRWKQYL$Y?+:)M6:$&+R<X"AW?HIT28!ZC$X;$GD(4`T1`AY.9E4?F
MF=/+U*ZZAU@(;,V=MT\%7.R:#Q`9Y7ST?J?BM5,IXE2JA':,!`@P$82Y?XNT
M2^.T.QK2-)O`["^*^PW0/4,+4Q,VTXK<P+`5%%FW^9%`68=R'QF*YEO%HL1A
M>@)(K0)17J[S[-T]ET1S#RY^`5!+`0(_`!0````(`+T3DSUMIE!]^1````(C
M```)`"0`````````(`````````!%3BU252YH=&$*`"````````$`&```G\)[
J"Y_+`0`(%%N;I\L!P'G#^-NFRP%02P4&``````$``0!;````(!$`````
`
end
sum -r/size 17956/4497
С Новым годом!EOYY$P-?*RWM,@
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12542
Location: Москва

Post (Separately) Posted: Fri Dec 31, 2010 18:02    Post subject: Reply with quote

Ннчего так. Только вот переносы строк и элементы управления окном добавить не помешает. Wink
Интересно, а с translate.ru такой фокус не удастся? Там перевод получше будет.
Back to top
View user's profile Send private message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Sat Jan 01, 2011 02:28    Post subject: Reply with quote

Flasher
Элементы управления окном - строки 14 и 15, - значения параметров - "yes", а на счет переносов строк - не понял, - у меня переносятся. И до того, как начал отмечать, переносились.
Back to top
View user's profile Send private message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Sat Jan 01, 2011 02:33    Post subject: Reply with quote

По translate.ru пока ничего не нашел - т.е. не знаю, есть ли у них формат для внешнего запроса. (и ответа). Ну, год только начинается, может, что и получится. Если у кого есть инфа - поделитесь...
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12542
Location: Москва

Post (Separately) Posted: Sat Jan 01, 2011 19:01    Post subject: Reply with quote

Serge Yolkin wrote:
Элементы управления окном - строки 14 и 15, - значения параметров - "yes"
Понял, спасибо.
Serge Yolkin wrote:
на счет переносов строк - не понял, - у меня переносятся.
Во второй панели с результатом перевода тоже переносятся?
Back to top
View user's profile Send private message
Andrey_A



Joined: 10 Apr 2009
Posts: 394
Location: Сочи

Post (Separately) Posted: Sun Jan 02, 2011 11:28    Post subject: Reply with quote

Скрипт очень понравился, решил его привязать к AkelPad'у
Необходимо скрипт MarkerTextInEN-RU.vbs поместить в папку Scripts и на панели или в меню сделать кнопку. Путь к файлу EN-RU.hta изменить в скипте на свой. По аналогии сделать второй скрипт MarkerTextInRU-EN.vbs и раскомментировать WSH.SendKeys "{TAB}"
Code:
' MarkerTextInEN-RU.vbs
'========================   Описание   ===========================
' Выделенный текст в AkelPad'е отправляет переводчику EN-RU.hta
' если текст не выделен, то выделяется весь документ
'========================     Пример    ===========================
' -"Перевести выделенный текст EN --> RU" Call("Scripts::Main", 1, "MarkerTextInEN-RU.vbs")  Icon("%a\AkelFiles\Plugs\ToolBar.dll",23)
'========================  Изменяемые пути  ======================
Program = "%COMMANDER_PATH%\Scripts\TextWork\EN-RU.hta"
'==============================================================

Dim FSO, WSH, Program
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
hEditWnd = AkelPad.GetEditWnd()
  Txt  = RTrim(AkelPad.GetSelText())
  if Len(Txt) = 0 Then
    AkelPad.SetSel 0, -1
    Txt  = RTrim(AkelPad.GetSelText())
  end if 
  AkelPad.SetClipboardText(Txt)
 
Program = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(Program))
WSH.Run Chr(34) & Program & Chr(34)
     WScript.Sleep 1000
'WSH.SendKeys "{TAB}" раскомментировать для обратного перевода RU-->ENG
WSH.SendKeys "^(V)"
Set WSH = Nothing
Set FSO = Nothing 
WScript.Quit()
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2075
Location: Russian Federation

Post (Separately) Posted: Sun Jan 02, 2011 12:30    Post subject: Reply with quote

QTranslate (278 Kb)
http://quest-app.appspot.com/


_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Mon Jan 03, 2011 18:20    Post subject: Reply with quote

ask-rus wrote:
QTranslate (278 Kb)
Если весь функционал - в сети, то куда столько-то...
Кстати, если вопрос интересный - в Google API есть автоопределение языка. Через недельку отпразднуюсь - попробую универсальный переводчик набросать.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12542
Location: Москва

Post (Separately) Posted: Mon Jan 03, 2011 18:58    Post subject: Reply with quote

Serge Yolkin
На мой вопрос ответь, пож-та.
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2075
Location: Russian Federation

Post (Separately) Posted: Mon Jan 03, 2011 20:14    Post subject: Reply with quote

Serge Yolkin
Звуковой движок прикрутили, переводить так со звуком Smile .
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Mon Jan 03, 2011 21:02    Post subject: Reply with quote

Flasher
Ой, извини, - я в праздники немного невнимателен. Да. В обоих панелях строки переносятся, независимо от направления перевода.
ask-rus
На звук посмотрю, но для меня не очень актуально: я, в основном, в тишине работаю, чтобы никого не будить...


Last edited by Serge Yolkin on Mon Jan 03, 2011 21:05; edited 1 time in total
Back to top
View user's profile Send private message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Mon Jan 03, 2011 21:04    Post subject: Reply with quote

Да, кто попробовал скрипт, - у кого-нибудь проблема с переносом строк еще есть?
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2075
Location: Russian Federation

Post (Separately) Posted: Mon Jan 03, 2011 21:06    Post subject: Reply with quote

Serge Yolkin
Не смотри, я же шучу, звук здесь ни к селу.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1725
Location: Арзамас

Post (Separately) Posted: Mon Jan 03, 2011 21:30    Post subject: Reply with quote

Нет переносов
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12542
Location: Москва

Post (Separately) Posted: Mon Jan 03, 2011 21:39    Post subject: Reply with quote

Ну, и я добавлю пример из текста, что на главной:
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Программное обеспечение All times are GMT + 4 Hours
Goto page 1, 2, 3, 4, 5, 6, 7, 8  Next
Page 1 of 8

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group