Question

我试图使用visual basic找出数组索引。我尝试了一些VB.Net的代码并获得正确的输出。以下是我正在使用的代码，

Dim FindThisString as String="EFGH"
Dim MyArray() As String={"ABCD","EFGH","IJKLM"}
For Each Str As String In MyArray
If Str.Contains(FindThisString) Then
    MsgBox(Str.IndexOf(FindThisString))
End If 
Next

现在我想用VB 6.0尝试相同的方法。我正在使用Instr函数，但它在整个字符串中给我字符串索引，我正在寻找数组索引，即字符串的索引＆＃34; EFGH＆＃34;在MyArray。

这是我尝试的VB6代码：

Dim MyString as String 
Dim str as Variant 
MyString="ABCD/EFGH/IJKLM" 
Dim MyArray() as String 
MyArray = split(MyString,"/") 
Dim inIndex as Integer 
For Each Str In MyArray 
   inIndex= Instr(str,"EFGH") 
   MsgBox inIndex 
Next

Answer 1

你基本上会使用相同的算法：

循环遍历数组（您需要使用Variant作为VB Classic For Each的循环变量），
验证数组条目是否包含有问题的子字符串（此处需要使用InStr，因为VB Classic没有String.Contains），
返回索引（已使用InStr确定）。

实施留作练习。

Answer 2

$deletedRows = App\Flight::where('active', 0)->delete();

使用VB6.0查找数组索引

2 个答案: