Extra - Write screen string into a file without comma and quotes!!

idur · Apr 25, 2003

Hi, I have a macro that gets a string from the screen and writes it in a file. But the string is written between quotes and when there´s more then one they come separated by commas! How can I get rid of the commas and quotes, so that only the string is written???

Thanks

matthy · May 19, 2003

Idur,
could you quote your current macro here for further considerations?
Thanks,
Matthy

idur · May 20, 2003

There it is

'--------------------------------------------------------------------------------
' Essa macro foi criada pelo Registrador de macros.
' Documento da sessão: "C:\WINNT\PROFILES\EX068977\DESKTOP\TCSNET_2CENTRO.EDP"
' Data: Thursday, April 24, 2003 16:47:33
' Usuário: ex068977
'--------------------------------------------------------------------------------

' Declarações de variáveis globais
Global g_HostSettleTime%
Global g_szPassword$

Sub Main()
'--------------------------------------------------------------------------------
' Obtém o objeto principal do sistema.
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System&quot

' Obtém o objeto do sistema.
If (System is Nothing) Then
Msgbox "Não foi possível criar o objeto EXTRA System. Anulando a reprodução da macro."
STOP
End If
Set Sessions = System.Sessions

If (Sessions is Nothing) Then
Msgbox "Não foi possível criar o objeto de coleção Sessions. Anulando a reprodução da macro."
STOP
End If
'--------------------------------------------------------------------------------
' Define o valor do tempo de espera padrão.
g_HostSettleTime = 1000 ' milissegundos

OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If

' Obtém o objeto Session necessário.
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 is Nothing) Then
Msgbox "Não foi possível criar o objeto Session. Anulando a reprodução da macro."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

Dim Periodo as string
Dim screen as object
Dim str as string

reset
open "D:\meus documentos\SAG\SAG-IPSul.txt" for output as #1

'================================================================================================
'* Mude Aqui o Período a ser emitido.
'* O Formato do período é:
'* Para o período DD/MM/AAAA a dd/mm/aaaa digite DDMMAAAAddmmaaaa
'================================================================================================
DataInicial = inputbox ("Entre com a data Inicial para emissão [Formato corrido DDMMAAAA]: ", "<<BrasilTelecom>>&quot

DataFinal = inputbox ("Entre com a data Final para emissão: ", "<<BrasilTelecom>>&quot

Periodo = DataInicial & DataFinal

'RS-SAG

Sess0.Screen.Sendkeys("rs-sag<Enter>&quot

Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Tab>6442<Enter>&quot

Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys(Periodo & "<Tab><Tab>0804<Enter>&quot