+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 3 su 3

Discussione: Scrivere in un file di testo in append

  1. #1
    CCobram non è in linea Novello
    Post
    2

    Scrivere in un file di testo in append

    Buongiorno a tutti, spero che la mia richiesta non sia fuori luogo o esagerata.
    La mia necessità è quella di presentare all'utente la richiesta di immissione di determinate stringe (testo) le quali andranno a completare la struttura sotto riportata.
    XXX..= le stringhe da richiedere all'utente durante il setup.

    XXXXXXX=

    (DESCRIPTION=
    (ADDRESS=
    (PROTOCOL=TCP)
    (HOST=xxx.xxx.xxx.xxx)
    (PORT=1521)
    )
    (CONNECT_DATA=
    (SID=XXX)
    )
    )

    Completata dall'utente, la compitazione delle stringhe richieste, il setup dovrebbe appendere in coda ad un file di testo la struttura sopra elencata ovviamente compilata.



    Premetto che sono un noob esagerato.


    Ringrazio anticipatamente per l'aiuto.


    Conte Cobrammmmmmmmm......

  2. #2
    L'avatar di spikexx84
    spikexx84 non è in linea Scribacchino
    Luogo
    Darfo Boario Terme (BS)
    Post
    1,164
    Vediamo se ho capito bene, tu vuoi leggere tre parametri stringa (fattibile con una pagina di tipo TInputQueryWizardPage), comporli in una stringa (semplice concatenazione di stringhe) che poi va aggiunta in append a un file esistente giusto (SaveStringToFile con l'aposito parametro a true)?

    Bene non è difficile si ti accontenti della grafica di default di inno setup:

    codice:
    [Code]
    Var 
      PagePar : TInputQueryWizardPage;
      
    Procedure InitializeWizard();
    
      Begin
    
        PagePar := CreateInputQueryPage(wpWelcome,'Parametri vari', 'Parametro da aggiungere','Inserisci i parametri e premi avanti')
    
        PagePar.Add('Parametro 1', False)
        PagePar.Add('Host', False)
        PagePar.Add('Sid', False)
    
      End;
    
    Procedure CurPageChanged(CurPageID: Integer); 
      
    Var
      s_String: String;
      
      Begin
        If CurPageID = wpFinished Then
          Begin
         
            s_String := PagePar.Values[0] + '=' + #13#10 + 
                        '(DESCRIPTION=' + #13#10 + 
                        '(ADDRESS=' + #13#10 + 
                        '(PROTOCOL=TCP)' + #13#10 + 
                        '(HOST=' + PagePar.Values[1] + ')' + #13#10 + 
                        '(PORT=1521)' + #13#10 + 
                        ')' + #13#10 + 
                        '(CONNECT_DATA=' + #13#10 + 
                        '(SID=' + PagePar.Values[2] + ')' + #13#10 + 
                        ')' + #13#10 + 
                        ')'
    
            SaveStringToFile('c:\Prova.txt', #13#10 + s_String, True)
    
          End
      End;
    Se invece vuoi una pagina completamente personalizzata, beh leggiti qualche discussione in cui vengono create le pagine personalizzate, studiatele e guarda cosa riesci a capire, dopo di che ne riparliamo, visto che non è proprio una cosa di livello base
    Se sei nuovo e vuoi aiuto il miglior modo che io ho trovato per ottenerlo è porre le domande in modo intelligente
    Se hai delle domande siamo qui per tentare di risponderti, se hai delle risposte siamo qui per ascoltarle
    Noi siamo una comunità, una bella comunità e funzioniamo sempre meglio se ognuno cerca di seguire al massimo il nostro regolamento

  3. #3
    CCobram non è in linea Novello
    Post
    2
    GRAZIEEEEEEEEEEEEEEEEEEEEE spettacolare......

+ Rispondi al Thread

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi