| Knowledgebase Home | Contact |
| How can I change the blanking flag to 0 when digitizing? | |||||||||
- Another method is to use a script BlankOutside.bas to read the file and write out the first line with the blanking flag set to 0. Run the Surfer Scripter with the Windows Start | Programs | Golden Software Surfer 8 | Scripter menu command, open the file with the File | Open command, and run the script with the Script | Run command. 'BlankOutside.bas reads a BLN file and changes the ' blanking flag on the first line to 0. ' TB - 19 May 06. Sub Main file1 = GetFilePath(,"bln","c:\incoming\","Enter BLN File Name") Debug.Print file1 If file1 = "" Then End file2 = Left(file1,Len(file1)-4)+"BlankOutside.bln" Open file1 For Input As #1 Open file2 For Output As #2 Line Input #1,a a = Left(a,Len(a)-1) + "0" Print #2,a While Not EOF(1) Line Input #1, a Print #2,a Wend MsgBox(file2+" has been created") End Sub |
| Visitor Comments |
|
| Attachments |
| No attachments were found. |