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

请问怎么将数组对象实例化
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  &lt;&gt;  -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 codestrtemp = sr.ReadLineIf Not isnothing(strtemp) then    itemp = strtemp.Split(Chr(9))     If itemp(2) = CStr(i) Then         fw.WriteLine(strtemp)     End If  End if

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

热点推荐