Как загрузить CSV-файл в стек LiveCode?

Question

Предполагая, что у меня есть фон с fieldA, fieldB и fieldC Я хотел бы загрузить CSV-файл в стек. Файл CSV имеет три столбца A, B и C. Как выглядит скрипт кнопки «Загрузить»?

Answer 1

Если вы просто хотите загрузить содержимое дословно, то

on mouseUp 
    put url ("file:" & pathToFile) into tContents 
end mouseUp 

будет делать трюк. Чтобы получить столбцы в полях, вам нужно немного поработать. Один из способов:

on mouseUp 
    put url ("file:" & pathToFile) into tContents 
    -- set the itemDelimiter to tab -- if necessary 
    repeat for each line tLine in tContents 
    put item 1 of tLine & cr after field "fieldA" 
    put item 2 of tLine & cr after field "fieldB" 
    put item 3 of tLine & cr after field "fieldC" 
    end repeat 
end mouseUp 

Answer 2

Если данные чистые, файлы CSV обычно имеют поле, разделенное символом ";" так что вы можете просто заменить их на вкладке и использовать «основное поле таблицы»:

put url ("file:" & pathToFile) into tData 
replace ";" with tab in tData 
put tData into field "data" 

Если данные UTF8 или что-то еще нужно, чтобы перевести его в первую очередь.

Answer 3

Для чтения данных в переменную lCsvData:

local lCsvData 

on importCsv 
    answer file "Chooose CSV file..." 
    if it is not empty then 
    put it into myPath 
    put url ("binfile:" & myPath) into myData 

Теперь мы можем расшифровать данные:

put urlDecode(urlEncode(myData,"UTF8")) into myData 

Проблема: данные могут содержать возвращения. Позволяет удалить возвращаемые значения из элементов. При необходимости вы можете обрабатывать каждый элемент отдельно.

put empty into lCsvData 
    set the itemDel to semicolon 
    repeat for each line myLine in myData 
     repeat for each item myItem in myLine 
     put replaceText(myItem,cr,numToChar(14)) after lCsvData 
     end repeat 
     put cr after lCsvData 
    end repeat 
    end if 
end importCsv 

Теперь у вас есть чистые данные. Вы можете выбрать линию и поместить ее в поле таким образом:

on showLine theLine 
    put line theLine of of lCsvData into myLine 
    set the itemDel to semicolon 
    repeat for each item myItem in myLine 
    put replaceText(myLine,numToChar(14),tab) into fld 1 
    end repeat 
end showLine 

где theLine - целое число. Вы можете использовать cr вместо вкладки, и вы можете настроить этот скрипт любым способом, который вы хотите отформатировать поле вывода.