Sub SME()
dosya1 = "D:\data.txt"
Open dosya1 For Input As #1
dosya2 = "D:\Datalar\SME\data_cıktı.txt"
Open dosya2 For Output As #2
Dim AltNo(50) As String
Do While Not EOF(1)
Line Input #1, read
i = i + 1
If Left(read, 3) = "PNM" Then
AltNo(i) = Left(read, 14)
ElseIf Left(read, 3) = "SCL" Then
x = Trim(Mid(read, 150, 50))
Print #2, AltNo
End If
Loop
Close #1
Close #2
MsgBox "BİTTİ", vbOKOnly
End Sub
yukarıda yer alan kodda altno yu dizi olarak tanımlayamıyorum. type mismatch hatası alıyorum. Altnonun olduğu satır hem harf ve rakamlardan oluşuyor fakat ben sadece rakam olan yerini kesiyorum. konu hakkında yorum ve yardımlarınızı rica ederim.
dosya1 = "D:\data.txt"
Open dosya1 For Input As #1
dosya2 = "D:\Datalar\SME\data_cıktı.txt"
Open dosya2 For Output As #2
Dim AltNo(50) As String
Do While Not EOF(1)
Line Input #1, read
i = i + 1
If Left(read, 3) = "PNM" Then
AltNo(i) = Left(read, 14)
ElseIf Left(read, 3) = "SCL" Then
x = Trim(Mid(read, 150, 50))
Print #2, AltNo
End If
Loop
Close #1
Close #2
MsgBox "BİTTİ", vbOKOnly
End Sub
yukarıda yer alan kodda altno yu dizi olarak tanımlayamıyorum. type mismatch hatası alıyorum. Altnonun olduğu satır hem harf ve rakamlardan oluşuyor fakat ben sadece rakam olan yerini kesiyorum. konu hakkında yorum ve yardımlarınızı rica ederim.