RealBasic: выполнить команды оболочки

Question

Мне нужно загрузить CSV-файл в базу данных sqlite с использованием Realbasic. Нет проблем с этим, как описано в уроке this.

Можете ли вы помочь мне сделать это с помощью RealBasic.

Я пытаюсь использовать класс Shell:

Dim folder As FolderItem = GetFolderItem("") 

Dim sh As Shell = new Shell 
sh.Mode = 2 

If Not sh.IsRunning Then 
    sh.Execute "sh" 
End If 

sh.Write("cd " + folder.ShellPath) 
sh.Write("sqlite3 " + App.GetDatabaseName() + ".sqlite") 
sh.Write(".separator "",""") 

sh.Write(".import " + FileName + " " + TableName) 

PS: нет никаких сообщений об ошибках во время выполнения, в Shell. Но данные не импортируются в таблицу.

Как это исправить?

Спасибо!

Answer 1

Попробуйте использовать WriteLine вместо Write для отправки ваших команд.

sh.WriteLine("cd " + folder.ShellPath) 
sh.WriteLine("sqlite3 " + App.GetDatabaseName() + ".sqlite") 
sh.WriteLine(".separator "",""") 

sh.WriteLine(".import " + FileName + " " + TableName)