0

我正在使用 VB 来检测textarea文档中的所有元素并编辑它们的值。

这是代码:

For Each Element As HtmlElement In WebBrowser4.Document.GetElementsByTagName("textarea")
  MsgBox(Element.GetAttribute("name"))
  If (Element.GetAttribute("name") = "field1") Then
    Element.SetAttribute("Value", Message)
  ElseIf (Element.GetAttribute("name") = "field2") Then
    Element.SetAttribute("Value", My.User.Name.Replace("/", "~"))
  End If
Exit For
Next Element

如您所见,textarea我感兴趣的两个元素具有nameoffield1field2,但是我的代码仅检测和编辑field1

我尝试添加更多元素,但它仍然没有检测到除field1.

这是我正在搜索的文档:

<?php
if(isset($_POST['field1']) && isset($_POST['field2'])) {
  $data = $_POST['field1'];
  file_put_contents($_POST['field2'] . '.txt', "");
  $ret = file_put_contents($_POST['field2'] . '.txt', $data, FILE_APPEND | LOCK_EX);
}
?>
<form action="" method="POST">
  <textarea style="width: 800px;" name="field1"><?php echo htmlspecialchars($field1) ?></textarea>
  <textarea style="width: 800px;" name="field2"><?php echo htmlspecialchars($field2) ?></textarea>
  <input type="submit" style="width: 150px;" name="submit" value="Save Data">
  <input type="reset" style="width: 150px;" name="reset" value="Reset"/>
</form>

我很困惑。我究竟做错了什么?

4

1 回答 1

1

你实际上并没有循环。尝试:

For Each Element As HtmlElement In WebBrowser4.Document.GetElementsByTagName("textarea")
  MsgBox(Element.GetAttribute("name"))
  If (Element.GetAttribute("name") = "field1") Then
    Element.SetAttribute("Value", Message)
  ElseIf (Element.GetAttribute("name") = "field2") Then
    Element.SetAttribute("Value", My.User.Name.Replace("/", "~"))
  End If
Next 'loop to next element

对于每个文档:https ://msdn.microsoft.com/en-AU/library/5ebk1751.aspx

于 2015-06-02T01:32:18.877 回答