RealBasic:执行 shell 命令

Question

我需要使用 Realbasic 将 CSV 文件加载到 sqlite 数据库中。按照本教程中所述执行此操作没有问题。

你能帮我用RealBasic做到这一点吗？

我正在尝试使用外壳类：

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 )