Skip Baris

  1. 7 bulan yang lalu

    om2 mohon bantuannya,
    saya punya file .csv saya mau ambil data langsung dari baris ke-16 gmn caranya ya

    @Lexs194 ...

    ... Jika xArray(6) nilainya "0" maka skip baris dan dilanjutkan dengan baris selanjutnya ...

    Ya dibuat dong baris uji untuk nilai xArray(6) sebelum nilainya ditampilkan. Misalkan saja:

    ...
    If Len(Trim$(sBuffer)) > 0 Then
        xArray = Split(sBuffer, ",")
        On Error Resume Next
        If Ubound(xArray) > -1 Then
            If xArray(6) <> "0" Then
                ...
                '+--- Proses data!
                ...
            End If
        End If
        Err.Clear: On Error Goto 0
    Else
        Exit Do
    End If
    ...

    Demikian.

  2. Caton

    25 Apr 2018 Terverifikasi Indonesia + 12.596 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    @Lexs194 ...

    [1]. Secara langsung, baru dibaca data selanjutnya, contoh:

    ...
    lInputIdx = 1
    Do Until EOF(lFileNum)
        Line Input #lFileNum, sBuffer
        If lInputIdx > 15 Then
            If Len(Trim$(sBuffer)) > 0 Then
                ...
                '+--- Proses data!
                ...
            Else
                Exit Do
            End If
        Else
            lInputIdx = lInputIdx + 1
        End If
    Loop
    ...

    [2]. Melakukan perbandingan terhadap teks tertentu sebagai awal data yang akan diproses, contoh:

    ...
    bReadIt = False
    sHeader = """Severity"",""Alarm ID"""
    Do Until EOF(lFileNum)
        Line Input #lFileNum, sBuffer
        If Not bReadIt Then
            bReadIt = (InStr(1, sBuffer, sHeader) > 0)
        Else
            If Len(Trim$(sBuffer)) > 0 Then
                ...
                '+--- Proses data!
                ...
            Else
                Exit Do
            End If
        End If
    Loop
    ...

    Demikian.

  3. terima kasih om @Caton sukses selalu

  4. Om @Caton bisa dibantu lagi

    Jika xArray(6) nilainya "0" maka skip baris dan dilanjutkan dengan baris selanjutnya.
    biar ngak cetak nilai "0"
    bagaimana ya om?

  5. Caton

    26 Apr 2018 Terverifikasi Jawaban Terpilih Indonesia + 12.596 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    @Lexs194 ...

    ... Jika xArray(6) nilainya "0" maka skip baris dan dilanjutkan dengan baris selanjutnya ...

    Ya dibuat dong baris uji untuk nilai xArray(6) sebelum nilainya ditampilkan. Misalkan saja:

    ...
    If Len(Trim$(sBuffer)) > 0 Then
        xArray = Split(sBuffer, ",")
        On Error Resume Next
        If Ubound(xArray) > -1 Then
            If xArray(6) <> "0" Then
                ...
                '+--- Proses data!
                ...
            End If
        End If
        Err.Clear: On Error Goto 0
    Else
        Exit Do
    End If
    ...

    Demikian.

  6. terima kasih om @Caton

 

atau Mendaftar untuk ikut berdiskusi!