Question

我正在尝试使用vba在网页中复制值/文本。该值位于4个不同的位置，每个位置都可以使用

这些地方的代码行是

document.title = document.title + ' - Verplaatsingsopdracht - Journaal: 4900446438,';</SCRIPT>

<caption  class="formcaption" ><nobr>Verplaatsingsopdracht - Journaal: 4900446438, </nobr></caption>

<td nowrap  class="forminput"  ><input type=text VALUE="4900446438" name="dsInventJournalTable_JournalId" style="border: 0" READONLY  MAXLENGTH="10"></td>

<td valign="top" class="information"><img src="resources/images/Info.gif" align="absmiddle">&nbsp;          Journaal 4900446438 is bevestigd</td></tr><tr><td>

我只对需要粘贴在名为txtJrnnr的表单文本域中的日志编号感兴趣。当然，期刊编号每次都会改变，所以我无法搜索这个数字，我需要复制在html中创建这个编号的地方。希望你能帮忙

Answer 1

假设您正在将HTML读入变量，您可以使用拆分功能来提取您想要的数据，因为它似乎始终保持一致

Dim strHTML     as String
Dim strData     as String
dim strJournal  as String

Dim varSplit    as Variant

Dim varJournal  as Variant

strHTML =  read from web object

' Split the HTML into segments using Journaal
varSplit = Split(strHTML, "Journaal: ")

' Get the second element
strData = varSplit(1)

' Strip and cleanup the Journal Number
varSplit = Split(strData, ",")

' Get the Journal Number
strJournal = varSplit(0)

复制特定文本Internet Explorer以访问

1 个答案: