Script ile dosyaya veri ekleme metodu:
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
Script ile dosyadan veri okuma metodu:
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
Script ile dosya kopyalama metodu:
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
