'On Error Resume Next
Dim IE : Set IE = WSCript.CreateObject("InternetExplorer.Application")' это браузер
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")' это файловая система компьютера
Dim fCsvName : fCsvName = Left(WSCript.ScriptFullName,len(WSCript.ScriptFullName)-3) & "csv"' далёко будем записывать данные
IE.visible = false' браузер в фоновом режиме
IE.navigate "адрес_страницы"
Do While IE.Busy' пока браузер не откроется
WSCript.Sleep 500' ждём полсекунды
loop' в цикле
Do While элемент_страницы is Nothing' пока этот элемент страницы не загрузится
WSCript.Sleep 500' будем ждать загрузки страницы
loop
I1 = IE.document.getElementsByClassName("anchor1").Item(18).getElementsByTagName("TD").Item(5).InnerText' парсим две ячейки
I2 = IE.document.getElementsByClassName("anchor2").Item(21).getElementsByTagName("TD").Item(5).InnerText
Set IE = Nothing' закрываем браузер
Set Csv = objFSO.OpenTextFile(fCsvName, 2, True)'открываем файл для записи
Csv.WriteLine I1 & ";" & I2' записываем туда содержимое двух ячеек
Csv.Close' закрываем файл
WSCript.Quit()' выключаем этот скрипт
InnerTextのないセルは、element_pageとして 使用できます。
Do While IE.document.getElementsByClassName("anchor1").Item(18).getElementsByTagName("TD").Item(5) is Nothing' пока этот элемент страницы не загрузится
WSCript.Sleep 500' будем ждать загрузки страницы
loop
Aがありました、機能ありがとうございました。
ファイルを送ってくれれば、何かわかると思います。
という方は、ぜひ本機能をご利用ください。
ファイルが大きい（添付）、問題は文字を適当にコピーしたことかもしれません（おそらく最初の文字でロスト）。
逆関数 - win1251からutf8への逆関数は、この関数から作ることができますか?）実際、win1251はこの関数で処理され、MT4でファイルを検索する必要があります - そうすれば、ロシア語の単語を含む行があります:)
ともあれ、この機能に関して質問があります。どのような文字が読めないのか？
だって、こんな風に作ったんだもん。
文字列の配列を作成し、文字列を書き込む前にutf8win1251()を実行すると、多くのエラーがポップアップします（無効な文字）、私は特定のエラーをキャッチすることはできません、すべての場所でぶつかる。
If(GetLastError()!=0) Print(GetLastError()); しかし、これでロシア語の単語検索がうまくいきました:)私はいくつかの特に重要な文字が失われたとは思わない、ちょうどこの点で、ログエラーという事実に悩まさ（彼らはオフにすることができます - このブロックからのエラーのログに出力？）
mzk_3om6u, DOM構造はIE10ではVBScript/JScriptで扱うのが一番簡単です。WinExec()でwsfスクリプトを実行することができます。タグを 変換しようとしているのですね。何のために？InnerTextを介して、スクリプトの最後にファイルに 書き込み、インデックスでファイルを受信して、安心して作業することができます。以下はその一例です。
'On Error Resume Next Dim IE : Set IE = WSCript.CreateObject("InternetExplorer.Application")' это браузер Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")' это файловая система компьютера Dim fCsvName : fCsvName = Left(WSCript.ScriptFullName,len(WSCript.ScriptFullName)-3) & "csv"' далёко будем записывать данные IE.visible = false' браузер в фоновом режиме IE.navigate "адрес_страницы" Do While IE.Busy' пока браузер не откроется WSCript.Sleep 500' ждём полсекунды loop' в цикле Do While элемент_страницы is Nothing' пока этот элемент страницы не загрузится WSCript.Sleep 500' будем ждать загрузки страницы loop I1 = IE.document.getElementsByClassName("anchor1").Item(18).getElementsByTagName("TD").Item(5).InnerText' парсим две ячейки I2 = IE.document.getElementsByClassName("anchor2").Item(21).getElementsByTagName("TD").Item(5).InnerText Set IE = Nothing' закрываем браузер Set Csv = objFSO.OpenTextFile(fCsvName, 2, True)'открываем файл для записи Csv.WriteLine I1 & ";" & I2' записываем туда содержимое двух ячеек Csv.Close' закрываем файл WSCript.Quit()' выключаем этот скриптInnerTextのないセルは、element_pageとして 使用できます。端末の5桁を4桁にする方法を教えてください。
他の証券会社で4桁の相場を持つ口座を登録する
4桁だったのが、owlをインストールしたら5桁になりました。owlはもうアカウントから消えてしまいました。
4桁だったのが、フクロウ導入後、5桁になった。 フクロウはやめたが、桁を戻すにはどうしたらいいのか？
奇跡は起きない。4つのサインを見て、5つを見ていないところ - そこから始めましょう。
私は2つのアカウントを持っていて、1つはユーロドル1.3469で、もう1つはEAがあった1.36690になりました。
ユーロドル1.3469と1.36690の2つのアカウントを持っています。
1.3469 と 1.34690 すみません ))) で、ある種のアドバイザーの後なのですが、何だか覚えていないのです。