Method for Writing data to file with Script.
Example Script
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Namespace WinTr
Public Class MainClass
Public Tag_1 as Integer
Public Tag_2 as Integer
Public Tag_3 as Single
Public Sub Load
'------- Script Start Line -------
FileOpen(1,"C:\Example.txt", OpenMode.Append)
Dim Str as String
Str = Tag_1 & ";" & Tag_2 & ";" & Tag_3
PrintLine(1, Str)
FileClose(1)
'------- Script End Line -------
End Sub
End Class
End Namespace
Method for Reading data from the file with Script.
Example Script
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Namespace WinTr
Public Class MainClass
Public Tag_1 as Integer
Public Tag_2 as Integer
Public Tag_3 as Single
Public Sub Load
'------- Script Start Line -------
FileOpen(1,"C:\Example.txt", OpenMode.Input)
Dim Str_sp() as string
Do While Not EOF(1)
Str_Sp = Split(LineInput(1), ";")
Exit Do
Loop
FileClose(1)
If Str_Sp.Length > 2 then
Tag_1 = Str_Sp(0)
Tag_2 = Str_Sp(1)
Tag_3 = Str_Sp(2)
End If
'------- Script End Line -------
End Sub
End Class
End Namespace
Method for Copying a file with Script.
Example Script
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Namespace WinTr
Public Class MainClass
Public Sub Load
'------- Script Start Line -------
If My.Computer.FileSystem.FileExists("C:\Example.txt") = False Then
FileCopy("C:\Example.txt", "C:\Example2.txt")
End If
'------- Script End Line -------
End Sub
End Class
End Namespace
File System Script
Özel Arama
