Для каждого элемента цикла, не объявленного

Question

Мне нужно использовать VB в рамках SSRS. Я пытаюсь украсить некоторые XPaths, чтобы сделать их более презентабельными для пользователя пользователя отчета. Я не зашел очень далеко, и я ударил по первой проблеме.

Module VBModule 
    Public Function BeautifyXpath(ByVal s As String) As String 
     Dim strBuilder As New System.Text.StringBuilder(s) 
     If s.Contains("[") Then 
      strBuilder.Replace("[%s]", "") 
      strBuilder.Replace("@", "") 
      Dim tokens = strBuilder.ToString().Split("/") 
      For Each token In tokens 
       Console.WriteLine(token) 
      Next 
      Return strBuilder.ToString() 
     Else : Return s 
     End If 
    End Function 

    Sub Main() 
     Console.WriteLine(BeautifyXpath("/priorities/priority[%s]/@patternName")) 
    End Sub 
End Module 

Я получаю следующее сообщение об ошибке компилятора:

(8,24): ошибка VBNC30451: 'маркер' не объявлен. Он может быть недоступен из-за его уровня защиты.

Answer 1

Вы должны объявить токен в своем заявлении For Each.

For Each token As String In tokens 
    Console.WriteLine(token) 
Next 

Или

Dim token As String() 
For Each token In tokens 
    Console.WriteLine(token) 
Next 

См MSDN для получения дополнительной информации.