2090
« on: February 05, 2018, 10:15:04 AM »
here we go:
file is stored in c:\mach3\gcode with original filename
Sub Main()
Dim Filename As String
Dim Dialog1
Set Dialog1 = CreateObject("MSComDlg.CommonDialog")
Dialog1.MaxFileSize = 256
Dialog1.Filter = "GCode Files (*.tap)|*.tap"
Dialog1.FilterIndex = 1
Dialog1.DialogTitle = "select GCode file"
Dialog1.InitDir = "C:\Mach3\GCode"
Dialog1.FileName = ""
save = false
If save = true Then
Dialog1.DefaultExt = def
Dialog1.Flags = &H800 + &H4
discard = Dialog1.ShowSave()
Else
Dialog1.Flags = &H1000 + &H4 + &H800
discard = Dialog1.ShowOpen()
End If
FileName = Dialog1.FileName
If Len(FileName) = 0 Then Exit Sub
'find the last "\" in filename
For i = 1 To Len(FileName)
If Mid(FileName,i,1) = "\" Then
last = i
End If
Next i
'extract filename
myfilename = Mid(FileName,last+1,Len(FileName)-last)
'find the extension in filename
For i = 1 To Len(myfilename)
If Mid(myfilename,i,1) = "." Then
last = i
End If
Next i
'seperate filename and extension
blancfilename = Mid(myfilename,1,last-1)
extension = Mid(myfilename,last,Len(FileName)-last)
'open input file
FNumInput = FreeFile 'Determine next file number.
Open FileName For Input As FNumInput
'open output file
FNumOutput = FreeFile 'Determine next file number.
Open "C:\Mach3\GCode\import.txt" For Output As FNumOutput
'go through To whole file
Do While Not EOF(FNumInput)
Line Input #FNumInput, FileData ' Read a line of data.
If ((InStr(FileData,"G43") <> 0) And (Left(FileData,1) <> "(")) Then
Print #FNumOutput, "( " + FileData + " )"
Else
Print #FNumOutput, FileData
End If
Loop
Close ' Close all open files.
DoOEMButton(169) 'close Mach3 files just in case
SourceFile = "C:\Mach3\GCode\import.txt"
destfile = "C:\Mach3\GCode\" + myfilename
FileCopy SourceFile, destfile ' Copy source to target.
Kill SourceFile
LoadFile( "C:\Mach3\GCode\" + myfilename)
End Sub