رفع خطای subscript out of range
با سلام
من برای بخش لود یه برنامه ویرایش متن نیاز دارم تا ورودی رو به دو بخش تقسیم کنم که کد زیر رو براش نوشتم :
cd1.ShowOpen
filepath = cd1.FileName
If filepath <> "" Or filepath <> Null Then
If InStr(1, filepath, ".txt", vbTextCompare) = 0 And InStr(1, filepath, ".mte", vbTextCompare) = 0 Then
MsgBox "The Selected Format Is Not Supported By This Programm . Please Select File By Folowing Formats : .TXT , .MTE ."
Exit Sub
End If
Open cd1.FileName For Input As #1
While Not EOF(1)
Input #1, text
Form4.rtb1.text = Form4.rtb1.text + text + vbCrLf
Wend
Close #1
Dim longtxt As String
longtxt = rtb1.text
Dim sepratetxt() As String
sepratetxt() = Split(longtxt, "//Header_Is_Over//", 1)
Form3.rtb1.text = sepratetxt(0)
rtb1.text = sepratetxt(1)
If sepratetxt(0) <> "" Or sepratetxt(0) <> " " Then
Label3.Caption = yes
End If
Else
MsgBox "No file Selected As a Source"
End If
حالا مشکل اینجاست که موقع اجرا بعد از انتخاب فایل روی خط
Form3.rtb1.text = sepratetxt(0)
rtb1.text = sepratetxt(1)
ارورsubscript out of range میده .
چطور باید رفعش کنم ؟
با تشکر
پاسخ با نقل قول
