[VB6 sp6] Inserire lettura di file testo in routine generica.

[benjy]

Cari amici, scusate ma non so proprio come esprimermi. Ora ci provo terra-terra (forse mi sto perdendo in un bicchiere d'acqua):
per operare su di un file ASCII, uso il comando

get #numerofile,numerorecord,variabile (tipofile1.campo1)

dove variabile fa riferimento alla dichiarazione type del tracciato record

type tipofile1
   campo1 as string *10
end type

ok. mi sono fatto una routine per creare il file di testo come richiesto da vari programmi (es. il tracciato riba) dove ogni record deve essere chiuso con ritorno carrello, leggendo il tipofile1 e scrivendo nel nuovo file.

ora, volevo definire in questo modulo una variante che identificasse il 'tipofile1'

public sub creafile (byval nomefile as string,byval tipofile as ?????)

Ho provato con object ma mi va in errore. Forse, non è possibile fare ciò che mi frulla nella testa?

Grazie e... salute a tutti

[oregon]

Public Sub creafile(ByVal nomefile As String, tf As tipofile1)

[benjy]

ok, funge (non ne dubitavo!!!!)

Però, scusa, Oregon, ma la mia necessità di passare il tipo era perchè vorrei utilizzare la stessa routine per vari file, che hanno lungezza differente per cui

As tipofile1)

Vorrei portergli passare, nella call, una volta un tipofile1, una volta tipofile2. E' possibile o... chiedo troppo?

[torn24]

Dico la mia, dichiari i record a livello globale, quindi sono visibili a tutte le sub, poi alla procedura invii un numero per selezionare quale "type" utilizzare

type uno
....
end type

type due
.....
end type


Public Sub creafile(ByVal nomefile As String, scelta as integer)
    
       IF scelta=1 THEN
           open nomefile for random as #1 len=len(uno)
       ELSE IF scelta=2 THEN
           open nomefile for random as #1 len=len(due)

end sub

[benjy]

Niente male come escamotage. Non ci avevo pensato, in quanto ero più focalizzato a capire che tipo di 'variabile/oggetto" poteva essere.

[oregon]

A parte l'indicazione avuta (abbastanza semplice) se i tipi non sono molto diversi potresti costruirne uno solo con un valore iniziale che indichi il tipo.

Oppure creare più funzioni con nomi diversi e argomenti diversi per ottenere i dati da passare ad una sola funzione comune.

[benjy]

Francamente, quello che mi frullava nella testa era di generalizzare il puntamento al file come si fa nel caso di... un recordset

public sub creafile (byval nomefile as string,byval tipofile as recordset)

e quindi nella open poter far riferimento ad esso/essa

Open nomefile For Random As #nfile Len = Len(tipofile )

nella lettura idem

Get #nfile, k, tipofile

e per la trascrizione dei dati idem

Print #nfile2, tipofile.nomecampo

Scrivendo, mi sto rendendo conto che non la soluzione prospettata da torn24 non va bene, altrimenti dovrei ripetere sempre l'istruzione di confronto e le relative istruzioni del file. Non vado a rispiarmiare istruzioni. Io volevo scrivere meno codice, per quello, cerco di crearmi il più possibile routine con variabili (sperando di non dire un'eresia)

[oregon]

Un recordset è un'altra cosa ...

Comunque, potresti anche creare una classe con tutti gli attributi che servono e passare un oggetto di quella classe opportunamente istanziato.