Replace execution echo in shell to Write #hFile

i-nex · Aug 3, 2014 · f52f82a · f52f82a
1 parent 0c35a98
commit f52f82a
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/I-Nex/i-nex/.src/Reports/MSOUND_REPORT.module b/I-Nex/i-nex/.src/Reports/MSOUND_REPORT.module
@@ -8,6 +8,7 @@ Public Report As Collection = [("0"): ("========================================
                                ("4"): (Finfosys.TextArea18.Text)]
 Public Sub _inits()
  Dim All, All2 As Integer
+ Dim hFile As File
  DATA_RETURN = Null
  For All = 0 To Finfosys.ComboBox6.Count - 1
  FReport_Gen.ProgressBar1.Value = All / Finfosys.ComboBox6.Count - 1
@@ -16,5 +17,11 @@ Public Sub _inits()
    DATA_RETURN = DATA_RETURN & "\n" & Report[All2]
   Next
  Next
- Shell "echo '" & DATA_RETURN & "'>>" & FReport_Gen.ButtonBox1.Text & "" Wait
+ If Exist(FReport_Gen.ButtonBox1.Text) Then  
+    hFile = Open FReport_Gen.ButtonBox1.Text For Write Append 
+ Else 
+    hFile = Open FReport_Gen.ButtonBox1.Text For Write Create
+ Endif 
+ Write #hFile, DATA_RETURN
+ Close #hFile
 End