WebRequest von Google-Translate-Anfrage

VB-08 · 1. März 2010, 16:08

Hi,

ich möchte einen string aus dem übersetzten Text einer mit dem Programm gesendeten Google-Translate-Anfrage?
Ich stelle mir möglicherweise einen WebRequest vor, kenne mich da aber nicht gut aus...

mfG

MasterPhönix · 1. März 2010, 18:26

Guck mal hier: [VB 2008] Google übersetzer benutzen

VB-08 · 1. März 2010, 20:35

hab mir jez das RegEx Mini TuT durchgelesen ([VB 2008] RegEx- Mini Tuturial), doch ich weiß nicht wo in diesem Beispiel des erhaltenen String die zu herausfilternden "Tags" liegen?

Das zu Übersetzende Wort ist: XXXXXXXXXX
_______________________________________________________________________________________________________________________________________________
[expander]<html><head><title>Google Translate</title><style type="text/css"></style>
<script type="text/javascript">(function (){ function ti_(b){this.t={};this.tick=function(c,d,a){a=a?a:(new Date).getTime();this.t[code=c]=[a,d]};this.tick("start",null,b)}var ti_a=new ti_;window.jstiming={Timer:ti_,load:ti_a};try{window.jstiming.pt=window.gtbExternal&&window.gtbExternal.pageT()||window.external&&window.external.pageT}catch(ti_b){}; })()
var sl_select, tl_select, web_sl_select, web_tl_select;var ctr, web_ctr, h;var tld = ".com";var sug_lab = "Contribute a better translation";var sug_thk = "Thank you for contributing your translation suggestion to Google Translate.";var sug_exp = "Contribute a better translation:";var dhead = "Dictionary";var dmore = "View detailed dictionary";var tr_in = "Translating...";var isurl = "";var show_roman = "Show romanization";var hide_roman = "Hide romanization";var t13n_label = "Type phonetically.";var t13n_example = "Example: Type \x22%1$s\x22 and hit space for \x22%2$s\x22.";var t13n_tooltip = "Type in %1$s";var msg_enable_otf = "Turn on instant translation";var msg_disable_otf = "Turn off instant translation";function _makeLegend(s,t) {var u = s.replace(' ALPHA',"");var v = t.replace(' ALPHA',"");var l = "%1$s to %2$s translation".replace(/%\d\$s/g, function(s) {if (s == '%1$s') {return u;} else {return v;}});if (u != s

v != t)l += ' — <b style="color:red">ALPHA</b>';return l;}</script><style></style><script>window.jstiming.load.tick('cl')</script><script src="/translate_static/aOgTL4mtBsw/js/translate_t_20091210.js"></script><script>window.gbar={};(function(){function g(a,b,c){var d="on"+b;if(a.addEventListener)a.addEventListener(b,c,false);else if(a.attachEvent)a.attachEvent(d,c);else{var h=a[d];a[d]=function(){var f=h.apply(this,arguments),e=c.apply(this,arguments);return f==undefined?e:e==undefined?f:e&&f}}};var i=window.gbar,k,l,m;function n(a){var b=window.encodeURIComponent&&(document.forms[0].q||"").value;if(b)a.href=a.href.replace(/([?&])q=[^&]*|$/,function(c,d){return(d||"&")+"q="+encodeURIComponent(b)})}i.qs=n;function o(a,b,c,d,h,f){var e=document.getElementById(a),j=e.style;if(e){j.left=d?"auto":b+"px";j.right=d?b+"px":"auto";j.top=c+"px";j.visibility=l?"hidden":"visible";if(h&&f){j.width=h+"px";j.height=f+"px"}else{o(k,b,c,d,e.offsetWidth,e.offsetHeight);l=l?"":a}}}i.tg=function(a){a=a||window.event;var b=a.target||a.srcElement;a.cancelBubble=true;if(k!=null)p(b);else{a=document.createElement(Array.every||window.createPopup?"iframe":"div");a.frameBorder="0";a.src="javascript:''";k=a.id="gbs";b.parentNode.appendChild(a);g(document,"click",i.close);p(b);i.alld&&i.alld(function(){var c=document.getElementById("gbli");if(c){var d=c.parentNode;q(d,c);var h=c.prevSibling;d.removeChild(c);i.removeExtraDelimiters(d,h)}})}};function r(a){var b,c=document.defaultView;if(c&&c.getComputedStyle){if(a=c.getComputedStyle(a,""))b=a.direction}else b=a.currentStyle?a.currentStyle.direction:a.style.direction;return b=="rtl"}function p(a){var b=0;if(a.className!="gb3")a=a.parentNode;var c=a.getAttribute("aria-owns")||"gbi",d=a.offsetWidth,h=a.offsetTop>20?46:24,f=false;do b+=a.offsetLeft||0;while(a=a.offsetParent);a=(document.documentElement.clientWidth||document.body.clientWidth)-b-d;d=r(document.body);if(c=="gbi"){var e=document.getElementById("gbi");q(e,document.getElementById("gbli")||e.firstChild);if(d){b=a;f=true}}else if(!d){b=a;f=true}l!=c&&i.close();o(c,b,h,f)}i.close=function(){l&&o(l,0,0)};function s(a,b,c){if(!m){m="gb2";if(i.alld){var d=i.findClassName(a);if(d)m=d}}a.insertBefore(b,c).className=m}function q(a,b){for(var c,d=window.navExtra;d&&(c=d.pop());)s(a,c,b)}})();</script><meta name="description" content="Google's free online language translation service instantly translates text and web pages. This translator supports: English, Afrikaans, Albanian, Arabic, .........................expander]

MasterPhönix · 1. März 2010, 20:44

Ah, jetzt weiß ich wo dein Problem liegt

An deiner Stelle würde ich die Übersetzung nicht von der Google-Seite selber holen, sondern mittels einer Art API. Die Adresse und ein einfaches Beispiel dazu findest du hier: [Allgemein] Einfache Mehrsprachigkeit für eigene Anwendungen - ohne nervige Übersetzungen.

VB-08 · 1. März 2010, 21:18

Leider erscheint bei disem Beispiel mit der Test-URL: "http://translate.google.de/translate_a/t?client=t&text=tree&sl=de&tl=en|de#",
nur der Text:
{"sentences":[{"trans":"tree","orig":"tree","translit":""}],"src":"en"}

MasterPhönix · 1. März 2010, 21:26

So geht es: translate.google.de/translate_…t=t&text=tree&sl=en&tl=de

Du musst beachten, dass du bei &sl=XX die Quellsprache und bei &tl=YY die Zielsprache angibst.

VB-08 · 1. März 2010, 22:06

probiers gerade aus (mit dem Trimmen), sag dir dann, ob es funktioniert hat..
mfG

VB-08 · 2. März 2010, 12:58

Findest du den Fehler in dem Code der den String trimmen soll?

VB.NET-Quellcode

Dim temp As String = "{""sentences"":[{""trans"":""Baum"",""orig"":""tree"",""translit"""":""""}],""dict"":[{""pos"":""Nomen"",""terms"":[""Staude"",""Baum""]}],""src"":""en""}"
Dim f As String = "{""sentences"":[{""trans"":"""""
Dim s As String = """,""orig"":"""
temp = temp.Trim(f, s)

MasterPhönix · 2. März 2010, 13:09

Soweit ich weiß entfernt die Trim-Funktion ledigleich Leerzeichen?!

VB-08 · 3. März 2010, 19:23

kennst du einen aderen Weg?

MasterPhönix · 3. März 2010, 19:38

Guck mal hier bis zum Ende des Threads: [VB 2008] Google übersetzer benutzen

VB-08 · 4. März 2010, 20:10

DANKE, jez funktioniert alles!

WebRequest von Google-Translate-Anfrage

WebRequest von Google-Translate-Anfrage

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben