检查weblist中的项是否缩进

Question

我有一个weblist中的项目列表，其中包含父项和子项。 Child缩进到右边，我需要在数据表中的两个不同列中检索child和parent的值。

我的代码是这样的：

list = qtp_getroproperty(page.weblist(), "items count", itemsCount
For n = 1 To itemsCount
  items = page.weblist(), getitem(n)

Answer 1

在VBScript中Left()：

>> For Each s In Array("x", " x", "  x")
>>     WScript.Echo s, CStr(" " = Left(s, 1))
>> Next
>>
x Falsch
 x Wahr
  x Wahr
>>

Answer 2

试试这个

if strSurname.StartsWith(" ")

Answer 3

有几种方法可以解决这个问题：

• 使用Left函数提取第一个字符，为Ekkehard Horner suggested：

  If Left(str, 1) = " " Then
    ...
  End If
  

• 使用InStrRev函数检查第一个字符：

  If InStrRev(str, " ", 1) > 0 Then
    ...
  End If
  

• LTrim字符串并将其与原始字符串进行比较：

  If LTrim(str) <> str Then
    ...
  End If
  

• 使用regular expression：

  Set re = New RegExp
  re.Pattern = "^ "
  If re.Test(str) Then
    ...
  End If
  

  请注意，最后一种方法是最通用的，但也是最昂贵的。通常，使用它来检查像＃34这样简单的东西是不合理的;字符串是以空格＆＃34;开头的。如果你想要检查＆＃34;字符串是否以任何类型的空格开头，它就变得更有用了。 （"^\s"）。