请教如何将数组对象实例化

请问怎么将数组对象实例化
Dim i As Integer = 1
  Dim j As Integer
  Dim itemp As String()

  Dim sline As String

  Dim objreader As New IO.StreamReader("F:\计算\njh\jnz" & CStr(n) & ".txt")

  Dim objwriter As New IO.StreamWriter("F:\计算\njh\jnd" & CStr(n) & ".txt")

  Do

  sline = objreader.ReadLine
  itemp = sline.Split(Chr(9))
 显示 itemp = sline.Split(Chr(9)) 未将对象引用设置到对象的实例
 



[解决办法]
sr.ReadLine did read lin anything.
[解决办法]

VB.NET code

        Dim fs As New System.IO.FileStream("F:\计算\njh\jnz.txt", IO.FileMode.Open,             IO.FileAccess.Read)         Dim fw As New System.IO.StreamWriter("F:\计算\njh\jnz" & CStr(i) & ".txt")         Dim sr As New System.IO.StreamReader(fs)         Dim itemp As String()         Dim strtemp As String         Do             strtemp = sr.ReadLine  '这里不为空,那下面有就实例，如果为NULL，就没有实例化字符串数组             itemp = strtemp.Split(Chr(9)) '这里你给Dim itemp As String() 赋值strtemp.Split(Chr(9)) 。            If itemp(2) = CStr(i) Then                 fw.WriteLine(strtemp)             End If         Loop While sr.Peek  <>  -1
[解决办法]
数组实例化
一.Dim itemp(10) As String() 第一定定义数组范围

二 Dim itemp as String
  Redim itemp(10) as String
重定义

三 Dim itemp as String={"0","1","2","3",....}
初始化

四 Dim itemp as String
  itemp=ReturnStrArray()

Private Function ReturnStrArray() as String()
...
Return ..

En Function 

[解决办法]
You just change your code like below
VB.NET code
strtemp = sr.ReadLineIf Not isnothing(strtemp) then    itemp = strtemp.Split(Chr(9))     If itemp(2) = CStr(i) Then         fw.WriteLine(strtemp)     End If  End if