با سلام
من برای بخش لود یه برنامه ویرایش متن نیاز دارم تا ورودی رو به دو بخش تقسیم کنم که کد زیر رو براش نوشتم :
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 میده .
چطور باید رفعش کنم ؟
با تشکر