Jump to content
DDTRON

Dúvida na Exportação de TXT

Recommended Posts

DDTRON

Srs , estou com uma dúvida ... estou querendo exportar um arquivo txt só que no lugar de OM conforme meu código abaixo eu envie um  número que se encontra em uma TEX1.text  :

Exemplo : Dentro da Text1.text tenho um número = 7770000 , quero enviar o arquivo 777000.txt e não OM.txt conforme meu código abaixo :

 

Public Sub Cmd_Exportar_Click()

Dim ret As Boolean

'Envia o controle MSFlexGrid, caminho do arquivo txt e delimitador

 ret = Exportar_FlexGrid_txt(MSTXT, "C:\Dados SAP-PM\OM.txt", vbTab)

 If ret Then

 MsgBox "O arquivo gerado se encontra no diretório C:\Dados SAP-PM\OM.txt , renomeie o arquivo com o número da OM !!!", vbInformation

End If

End Sub

Edited by DDTRON

Share this post


Link to post
Share on other sites
M6

Concatenas a string que está em Text1.text com o caminho que já tens substituindo a parte do OM por Text1.text.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
DDTRON
4 horas atrás, M6 disse:

Concatenas a string que está em Text1.text com o caminho que já tens substituindo a parte do OM por Text1.text.

Ainda estou começando no VB6 e não entendi sua resposta , pode me dar um exemplo ??? Esse é meu código completo !!!

________________________________________________________________________________________________-_____

Public Sub Cmd_Exportar_Click()

 Dim ret As Boolea
 
    ret = Exportar_FlexGrid_txt(MSTXT, "C:\Dados SAP-PM\OM.text", vbTab)
    
    If ret Then
        MsgBox "Arquivo gerado no diretório C:\Dados SAP-PM , renomeie o arquivo com o número da OM !!!", vbInformation
    End If
End Sub

________________________________________________________________________________________________________
Public Function Exportar_FlexGrid_txt(FlexGrid As Object, _
                                      Path_Txt As String, _
                                      Delimitador As Variant) As Boolean
  
    On Error GoTo Err_Funcion
    Dim Fila As Integer
    Dim Columna As Integer
    Dim Free_File As Integer
   
    Free_File = FreeFile
 
    Open Path_Txt For Output As #Free_File
      
    For Fila = 0 To _
        FlexGrid.Rows - 1
        FlexGrid.Row = Fila
          
        For Columna = 0 To _
            FlexGrid.Cols - 1
            FlexGrid.Col = Columna

            If Columna > 0 Then
                Print #Free_File, Delimitador;
            End If

            Print #Free_File, vbNullString & FlexGrid.Text & vbNullString;
        Next
          
        Print #Free_File, ""
      
    Next
    Close
    Exportar_FlexGrid_txt = True
      
    Exit Function
  
Err_Funcion:
    Close #Free_File
    MsgBox Err.Description, vbCritical
End Function

__________________________________________________________________________________________________

 

Edited by DDTRON

Share this post


Link to post
Share on other sites
M6

O teu problema não é com o VB6, é com a programação de forma genérica. Antes de fazeres código, devias aprender os conceitos antes.

O que tu queres é algo assim

 ret = Exportar_FlexGrid_txt(MSTXT, "C:\Dados SAP-PM\" & Text1.text & ".text", vbTab)

 


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
DDTRON
1 hora atrás, M6 disse:

O teu problema não é com o VB6, é com a programação de forma genérica. Antes de fazeres código, devias aprender os conceitos antes.

O que tu queres é algo assim


 ret = Exportar_FlexGrid_txt(MSTXT, "C:\Dados SAP-PM\" & Text1.text & ".text", vbTab)

 

M6 , desculpe minha ignorância , mas ainda continua com problema , está dando um erro : invalid qualifier  e aponta para Text1 ....

Edited by DDTRON

Share this post


Link to post
Share on other sites
DDTRON
6 horas atrás, DDTRON disse:

M6 - Consegui resolver o problema .. obrigado pela dica !!!

 

Edited by DDTRON

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.