robertofonte Posted March 13, 2009 at 03:34 PM Report Share #250550 Posted March 13, 2009 at 03:34 PM Viva pessoal. Estou a tentar fazer um pequeno script para criar um ficheiro e guardar valores la dentro mas n estou a ter mto sucesso .... O que pretendo fazer é criar um ficheiro sempre que o controlador fica a on e depois guardar enquanto ele estiver a on e quando uma flag auxiliar estiver a on ... EU não sou mto entendido em vbscript ... Se alguem me puder ajudar agradecia Dim PROCESS_F, ProcessFile, ProcessFileName, TS ' Script executado sempre que a variavel muda de estado ' só sera executado se ela estiver a on If (SmartTags("CTRL_TEMP_1\FC101_DB.CTRL_OFF_ON")=True) Then ProcessFileName="CTRL_1_Day"&(Now)&"_"& Month(Now)&"_"& Year(Now)&"_"& Hour(Now)&"_"& Minute(Now)&".CSV" Set ProcessFile = CreateObject("Scripting.FileSystemObject") ' Directorio Set PROCESS_F = ProcessFile.CreateTextFile("C:\"&ProcessFileName, True) ' Cabeçalho do Ficheiro PROCESS_F.WriteLine("AQUISIÇÃO DADOS") PROCESS_F.Close Do Until (SmartTags("CTRL_TEMP_1\FC101_DB.CTRL_OFF_ON")=True) If (FLAG=True) Then Set ProcessFile=CreateObject("Scripting.FileSystemObject") Set PROCESS_F = ProcessFile.GetFile("C:\"&ProcessFileName) Set TS=PROCESS_F.OpenAsTextStream(8,-2) TS.Write Day(Now)&"-"&Month(Now)&"-"&Year(Now)&" "&Hour(Now)&":"&Minute(Now)&":"&Second(Now)&";" TS.Write SmartTags("CTRL_TEMP_1\FC101_DB.CTRL_OFF_ON")&";"&vbCr TS.Close End If Loop End If Link to comment Share on other sites More sharing options...
robertofonte Posted March 13, 2009 at 05:01 PM Author Report Share #250572 Posted March 13, 2009 at 05:01 PM como já descobri qual era o problema vou colocar a solução pra futuros que queiram usar este script O problem é aki If (SmartTags("CTRL_TEMP_1\FC101_DB.CTRL_OFF_ON")=True) Then ProcessFileName="CTRL_1_"&Day"&(Now)&"_"& Month(Now)&"_"& Year(Now)&"_"& Hour(Now)&"_"& Minute(Now)&".CSV" solução If (SmartTags("CTRL_TEMP_1\FC101_DB.CTRL_OFF_ON")=True) Then ProcessFileName="CTRL_1_"&Day(Now)&"_"& Month(Now)&"_"& Year(Now)&"_"& Hour(Now)&"_"& Minute(Now)&".CSV" Era o day estava dentro das " " Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now