om2 mohon bantuannya,
saya punya file .csv saya mau ambil data langsung dari baris ke-16 gmn caranya ya
om2 mohon bantuannya,
saya punya file .csv saya mau ambil data langsung dari baris ke-16 gmn caranya ya
@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.
terima kasih om @Caton sukses selalu
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?
@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.
terima kasih om @Caton