IF ile değişim.

[k0081]

Merhaba arkadaşlar;
Aşağıda ki örnek kodlamada Dosyayı açtığımda dosya formatı VbTab dan farklı ise vbTab kısmını " " işareti ile nasıl değiştirebilirim ? kod nasıl düzenlemeli,, Dosya Formatı için İki şart gerekli yani.. X = Split(d, vbTab) yada X = Split(d, " ") Kodlama her ikisinide içinde bulunduracak..

Dim Dosya As String, d As String
Dim s As Long
Dim st, i As Integer
On Error Resume Next
Dosya = Application.GetOpenFilename( _
            "Koordinat Dosyaları (*.txt) (*.txt), *.txt", 1, _
            "ASCII koordinat data..")
s = 2
If Dosya = "False" Then Exit Sub
    Open Dosya For Input As #1
        While Not EOF(1)
           s = s + 1
            Line Input #1, d
                     st = 2
                     X = Split(d, [B][COLOR="Blue"]vbTab[/COLOR][/B])
For i = 0 To UBound(X)
                        st = st + 1
                        If X(i) = "" And i > 0 Then
End If
Cells(s, st) = X(i)
Next i
    Wend
    Close #1
    MsgBox "Dosya alımı tamamlandı.", vbInformation, _
    "ASCII Koordinat data.."
    If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation, _
    "Hata..!"

 

[Korhan Ayhan]

Merhaba,

Denemedim ama aşağıdaki gibi bir sorgu işinizi görebilir.

    If InStr(1, d, vbTab) > 0 Then
        X = Split(d, vbTab)
    Else
        X = Split(d, " ")
    End If

 

[k0081]

Hocam çok teşekkür ediyorum , tamamdır..