RealBasic：執行shell命令

Question

我需要使用Realbasic將CSV文件加載到sqlite數據庫中。 這樣做沒有問題，如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：在執行過程中有任何錯誤消息，殼牌。但數據不會被導入到表格中。

如何解決？

謝謝！

Answer 1

嘗試使用WriteLine而不是Write來發送您的命令。

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

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