Sub BuscarRFID_Action
Dim shl As Shell
shl.Initialize("shl", "python", Array As String("lectorRFID1.py"))
shl.WorkingDirectory = "/home/pi"'
shl.Run(500)
End Sub
Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If File.Exists("/home/pi", "foo.txt") Then
Dim text As String
text = File.ReadString("/home/pi", "foo.txt")
If text.Length>5 Then
Log("RFID: "&text)
File.WriteString("/home/pi", "foo.txt"," ")
End If
End If
End Sub