检查值中带撇号的节点

时间:2015-05-12 21:25:56

标签: xml vba vbscript apostrophe

我有一组代码,用于搜索用户在组合框中选择的特定高度的人,然后删除列表中不匹配的所有主题。组合框的值如下所示:5'0-5'5。我的问题是5'0-5'5中的撇号会导致错误。这是我的代码

If ComboBox5.Value <> "" Then
    i = 0  

    Do While i <= ListBox26.ListCount - 1
        Set CheckHeight = objDom.SelectSingleNode("//IDNum/LastName[@LName = '" _
            & LastName.Text & "']/FirstName[@FName='" & FirstName.Text _
            & "']/DateOfBirth[@DOB='" & Dob.Text & "']/Height[.='" _
            & ComboBox5.Value & "']")

        If CheckHeight Is Nothing Then
            ListBox26.RemoveItem (i)
        Else
            i = i + 1
        End If
    Loop

XML看起来像这样:

<LastName LName="Rodriguez Jesus Luis">
  <FirstName FName="Armondo">
    <DateOfBirth DOB="7/10/1975">
       <Hair>Black</Hair> 
       <Eyes>Brown</Eyes> 
       <Weight>150 - 175 lbs</Weight> 
       <Height>5'6 - 5'9</Height> 
    </DateOfBirth>
  </FirstName>
</LastName>

我尝试用两个“'”替换一个撇号“'”,尝试过Chr(39),尝试&apos;但仍然出错。

如果我使用getElementsByTagName并编写更多代码来比较和删除,我可以让它工作,但我正在跳跃使用上面的代码,因为它与我正在使用的其他所有其他字段一起使用。

我得到的错误是:

  

预期令牌']'找到'NUMBER'。

     

// IDNum / LastName [@LName ='Rodriguez Jesus Luis'] / FirstName [@FName ='Armondo'] / DateOfBirth [@ DOB ='7/10 / 1975'] /身高[。='5' - &gt; 0&lt; - - 5'3']

1 个答案:

答案 0 :(得分:2)

在可能包含单引号的字符串周围使用双引号。在VBScript中,字符串中的嵌套双引号通过加倍来转义:

Set CheckHeight = objDom.SelectSingleNode("//IDNum/LastName[@LName = '" & _
  LastName.Text & "']/FirstName[@FName='" & FirstName.Text & _
  "']/DateOfBirth[@DOB='" & Dob.Text & _
  "']/Height[.=""" & ComboBox5.Value & """]")
               ^^                       ^^

作为旁注,您的数据格式严重混乱。您的整个层次结构应该是同一节点的属性:

<Person LastName="Rodriguez Jesus Luis"
    FirstName="Armondo"
    DateOfBirth="7/10/1975"
    Hair="Black"
    Eyes="Brown"
    Weight="150 - 175 lbs"
    Height="5'6 - 5'9"
/>