Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    [VBA] Open File - Cancellare un "a capo"

    Ciao a tutti

    Mi chiamo Max, ho 51 anni (sigh!) e sto modificando un gestionale per alberghi in base alle nuove disposizioni di legge

    Dunque ........

    Da Access genero un file di testo .txt che verrà uploadato sul sito della Polizia

    Questo file ha un cliente per ogni riga, e ogni riga ha il suo bel ritorno a capo

    E fin qui tutto bene

    Il problema è che l'ultima riga NON deve avere il ritorno a capo, altrimenti il sito non lo accetta e mi da l'errore di dimensione non valida (eccede di 2 Byte)

    L'unico modo è aprire manualmente il file, cliccare alla fine e premere una volta il tasto backspace

    Facendo così viene accettato

    Io vorrei automatizzare questa procedura, dopo aver generato il file vorrei mediante l'istruzione Open cancellare il ritorno a capo alla fine del file

    A immettere caratteri riesco, non riesco a toglierli !!!!!!!!

    Mi potete aiutare ?

    Grazie

    Max

  2. #2
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Ma quindi lavori con VBA dentro Access oppure con altri linguaggi ?

    E quando generi il file .txt, non puoi evitare di inserire il crlf nell'ultima riga?

    P.S. Il linguaggio deve essere indicato come da regolamento, nel titolo ...
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  3. #3
    VBA dentro Access

    Il file .txt lo ottengo automaticamente esportando una query da access

    Riesco a gestire la spaziatura, ma l'ultimo "a capo" ce lo mette di suo e non posso farci niente

    Scusami per il titolo sbagliato ..............

  4. #4
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Con un codice del genere

    codice:
        Dim d() As Byte
        Dim fh As Integer
        
        fh = FreeFile()
        Open "file.txt" For Binary As #fh
        ReDim d(1 To LOF(fh) - 2)
        Get #fh, , d
        Close #fh
    
        fh = FreeFile()
        Open "nuovo_file.txt" For Binary As #fh
        Put #fh, , d
        Close #fh
    potresti creare un secondo file corretto ...
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  5. #5
    Funzionaaaaaaaaaa !!!!!!!!!!!!!

    Sei un grande !!!!!!!!!

    Mille grazie

    Max

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.