korori
October 4th, 2007, 12:48 AM
Question ok im back at programming that app for halo ce
it compiles
THE CODE
Private Sub btnLevelCompile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLevelCompile.Click
If txtLevel.Text = ".jms" Then Exit Sub
Dim path As String = txtLevel.Text
Dim dir As String = ""
Dim file As String = ""
Dim parsed As String = ""
Try
file = Mid(path, path.LastIndexOf("\") + 2, path.LastIndexOf(".") - path.LastIndexOf("\") - 1)
dir = Mid(path, path.LastIndexOf("levels") + 1, path.LastIndexOf("\") - path.LastIndexOf("levels") - 6)
parsed = dir & " " & file
Shell("tool.exe structure " & parsed)
Catch ex As Exception
MessageBox.Show("Please select a .jms file before hitting the button")
End Try
End Sub
Problem now is the name of the .scenario is blank when compiling any idea. Blue Elite helped me with parsing but we could not figure out why it compile with no name.
anyone has an idea what i can do
it compiles
THE CODE
Private Sub btnLevelCompile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLevelCompile.Click
If txtLevel.Text = ".jms" Then Exit Sub
Dim path As String = txtLevel.Text
Dim dir As String = ""
Dim file As String = ""
Dim parsed As String = ""
Try
file = Mid(path, path.LastIndexOf("\") + 2, path.LastIndexOf(".") - path.LastIndexOf("\") - 1)
dir = Mid(path, path.LastIndexOf("levels") + 1, path.LastIndexOf("\") - path.LastIndexOf("levels") - 6)
parsed = dir & " " & file
Shell("tool.exe structure " & parsed)
Catch ex As Exception
MessageBox.Show("Please select a .jms file before hitting the button")
End Try
End Sub
Problem now is the name of the .scenario is blank when compiling any idea. Blue Elite helped me with parsing but we could not figure out why it compile with no name.
anyone has an idea what i can do