Como ler um arquivo CSV programaticamente linha por linha

Artigo

Heloisa Paiva · Set. 8 1min de leitura

#ObjectScript #SQL #Caché #InterSystems IRIS

Rubrica InterSystems FAQ

Isso pode ser conseguido usando o procedimento CSV() da classe %SQL.Util.Procedures .
Abaixo está o exemplo de uso do código. (Assumindo que o arquivo test.csv está em c:\temp.)

Set rowtype="Name VARCHAR(50),UID VARCHAR(50), PHONE VARCHAR(50)"
Set filename="c:\temp\test.csv"
Set result=##class(%SQL.Statement).%ExecDirect(,"call %SQL_Util.CSV(,?,?)",.rowtype,.filename)
Set rset =result.%NextResult()

// To display all results, use do rset.%Display()
While rset.%Next() {
Write "Name:",rset.%GetData(1)," UID:",rset.%GetData(2)," PHONE:",rset.%GetData(3),!
}

Set rset="",result=""
Quit

Ao executar o código acima, você pode acessar cada linha e campo como um result set. Exemplo de execução:

USER>do ^CSV
Name    UID     PHONE
aaa 0001    080-1111-1111
bbb     0003    090-2222-2222
ccc     0009    050-3333-3333
ddd     0010    0120-17-1972
4 Rows(s) Affected

Por favor, também veja a referência de classe para a classe %SQL.Util.Procedures.
Referência de classe：%SQL.Util.Procedures.CSV()

Ir para o posto original escrito por @Tomoko Furuzono