Ｐａｇｅ 42 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Altavista翻訳(英日)(vbs) YAma(作成Chaos Sheeker氏) 02/8/2(金) 10:37 ┗Re:Altavista翻訳(英日)(vbs) アドバイス 初心者マーク 02/8/30(金) 1:06 ┗Re:Altavista翻訳(英日)(vbs) アドバイス sim 02/8/30(金) 3:12 ┗Re:Altavista翻訳 アドバイス 続き 初心者マーク 02/8/30(金) 13:37 ┗Re:Altavista翻訳 アドバイス 続き sim 02/8/31(土) 23:39 ┗Re:Altavista翻訳 アドバイス 続き 名前なし 02/11/25(月) 10:35 ─────────────────────────────────────── ■題名 ： Altavista翻訳(英日)(vbs) ■名前 ： YAma(作成Chaos Sheeker氏) ■日付 ： 02/8/2(金) 10:37 -------------------------------------------------------------------------
| 'Altavista翻訳(英日).vbsサンプル ' Dim BugWeb Dim View Dim URL Set BugWeb = CreateObject("BugWeb.BugBrowserAPI") Set View = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView) URL = BugWeb.EncodeToURLString(View.URL) BugWeb.NavigateNew("http://babel.altavista.com/translate.dyn?doit=done&BabelFishFrontPage=yes&enc=utf8&bblType=url&url=" & URL &"&lp=en_ja") Set View = Nothing Set BugWeb = Nothing |
| エラーがでます 行 １ 文字 １０ エラー 文字が正しくありません。 コード ８００Ａ０４０８ ソース マイクロソフト ｖｂｓｃｒｉｐｔ コンパイルエラー ｏｓ ｘｐです まるまるコピーしました。 どうしたらいいのかわかりませんアドバイスお願いします。 |
| >まるまるコピーしました。 > どうしたらいいのかわかりませんアドバイスお願いします。 その場合、本来半角スペースであるべきところが 全角スペースになっているからだと思います。 メモ帳などで置換して保存しなおしてください。 |
| ありがとうございます プログラムは、エラーが出なくなり動きますが スクリプトを開いてもタイトル名がなく空間が出来ているだけです。 もう一つは、ページに行くのですが翻訳がスタートしません。 |
| BugWeb.NavigateNew("http://babel.altavista.com/translate.dyn?doit=done&BabelFishFrontPage=yes&enc=utf8&bblType=url&url=" & URL &"&lp=en_ja") の行を BugWeb.NavigateNew "http://babelfish.altavista.com/urltrurl?url=" & URL & "&lp=en_ja&tt=url" に置き換えたらテストしたページではうまくいきました。 ページ翻訳のアドレスが変わったのかもしれませんね。 |
| >ページ翻訳のアドレスが変わったのかもしれませんね。 また変わった？ |