• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

robertofonte

VBSCRIPT --- CRIAR FICHEIRO para guardar ensaio de temperatura

2 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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  "  "

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora