Exporta arquivo .txt para vários TAG´s

#1

Preciso pegar um arquivo .txt e exportar para várias TAG´s internos. Exemplo:
000-000 = CRT
001-000 = 34430576
002-000 = 223546
003-000 = 10000
004-000 = 0
706-000 = 3

CRT = TAG1, 34430576 = TAG2, 223546=TAG3 assim por diante.

#2

Fabricio,

Você pode utilizar o objeto FileSystemObject para ler o arquivo TXT. Para separar os valores desejados você pode usar as funções Right e Len do VBScript. Por exemplo:

dim i, txt
i = 1
set fso = CreateObject("scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\teste.txt", 1)
do until f.AtEndOfStream
	txt = f.ReadLine
	Application.GetObject("Dados.TagInterno" & Cstr(i)).Value = Right(txt, Len(txt)-10)
	i = i + 1
loop

Segue alguns links de artigos relacionados a este assunto:



1 Like