vb Code:
If kategori2 = "" And kategori3 = "" And kategori4 = "" Then
Open "D:\\test.txt" For Input As #1
Input #1, okunan
If InStr(1, okunan, kategori1, 1) <= 0 Then
MsgBox "Böyle bir kayıt yok."
Exit Sub
ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 4, 1) Then
w = Left(okunan, M - 4)
w = Trim(w)
u = Len(w)
ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 5, 1) = "" Then
w = Left(okunan, M - 5)
w = Trim(w)
u = Len(w)
ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 6, 1) = "" Then
w = Left(okunan, M - 6)
w = Trim(w)
u = Len(w)
ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 7, 1) = "" Then
w = Left(okunan, M - 7)
w = Trim(w)
u = Len(w)
ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 8, 1) = "" Then
w = Left(okunan, M - 8)
w = Trim(w)
u = Len(w)
End If
If Mid(w, u - 1, 1) = "" Then
c = Mid(w, u, 1)
c = stok_sayisi + c
ElseIf Mid(w, u - 2, 1) = "" Then
c = Mid(w, u - 1, 2)
c = stok_sayisi + c
ElseIf Mid(w, u - 3, 1) = "" Then
c = Mid(w, u - 2, 3)
c = stok_sayisi + c
ElseIf Mid(w, u - 4, 1) = "" Then
c = Mid(w, u - 3, 4)
c = stok_sayisi + c
ElseIf Mid(w, u - 5, 1) = "" Then
c = Mid(w, u - 4, 5)
c = stok_sayisi + c
ElseIf Mid(w, u - 6, 1) = "" Then
c = Mid(w, u - 5, 6)
c = stok_sayisi + c
End If
Text_stok_sayisi.Text = c
End Sub