Descrição:
Como retornar o conteúdo de uma linha específica de um arquivo TXT?
Solução:
Para isto, deve-se utilizar os métodos dos objetos FileSystemObject.
Exemplo:
Const ForReading = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\Teste.txt", ForReading) For i = 1 to Screen.Item("SetPoint").Value-1 f.ReadLine Next strLine = f.ReadLine Screen.Item("Display").Value = strLine f.Close
NOTA: Caso o número da linha selecionada no SetPoint for maior que o número de linhas contidas no arquivo, será retornado um erro de script.
