Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Post - naderit

Pagine: 1 ... 8 9 [10]
136
Programmazione (Gambas 2) / [risolto]read file
« il: 10 Gennaio 2010, 14:44:02 »
bene, la soluzione era più semplice del previsto:

PUBLIC SUB Button1_Click()
'dichiaro le variabili

DIM intfile AS File
DIM campo1 AS String
DIM campo2 AS String
DIM campo3 AS String

'utilizzo il metodo binario con READ per popolare le variabili
intfile = OPEN "/percorso/miofile.txt" FOR READ
READ #intfile, campo1, 48 'memorizzo i primi 48 caratteri
READ #intfile, campo2, 22 'memorizzo i seguenti 22 caratteri della stessa riga
READ #intfile, campo3, 21
label1.Caption = campo1 'visualizzo in label
Label2.Caption = campo2
Label3.Caption = campo3

CLOSE #intfile
END
grazie per alcune dritte
a presto

137
Programmazione (Gambas 2) / Re: read file
« il: 08 Gennaio 2010, 09:41:27 »
grazie Guglielmofede
effettivamente non sono stato molto chiaro, vi spiego cosa devo fare:
ho un file di testo, tipo exel, come diceva gugleimofede, composto da righe e colonne sempre di una lunghessa per colonna ben stabilita, es. 30 caratteri; ora devo estrarre tutti i dati di ogni cella identificata con n°riga/n°colonna, lavorarli e salvarli in un database, un modo possibile è leggere il file con metodo RANDOM (casuale) in quanto posso per ogni riga, definire le colonne, in vb, come ho spiegato definisco un nuovo tipo di variabile con il metodo Type, ovvero:

Private Type myrecord
colonna1 As String * 15 - definendo il n° di caratteri da estrarre
colonna2 As String * 10
End Type

aprendo poi il file con RANDOM e popolando le variabili con GET

Ora non sono riuscito a trovare il metodo con Gambas
grazie

138
Programmazione (Gambas 2) / Re: read file
« il: 06 Gennaio 2010, 16:41:54 »
forse mi sono spiegato male:
casuale intendevo il metodo di lettura del file in vb:
IMPUT #miofile  apre un file con metodo sequenziale
RANDOM #miofile  apre un file con metodo casuale
BINARY #miofile  apre un file con metodo binario

ho già visto il metodo sequenziale con gambas:

PUBLIC SUB Button1_Click()

  DIM intfile AS File
  DIM ntesto AS String
 
intfile = OPEN "/miofile.txt" FOR INPUT

WHILE NOT Eof(intfile)
LINE INPUT #intfile, ntesto
ListBox1.Add(ntesto)
WEND
CLOSE #intfile
END

questa procedura carica un file di testo in una listbox

mi serve solo per capire come funziona gambas per migrare alcune applicazioni
ciao

139
Programmazione (Gambas 2) / Re: read file
« il: 06 Gennaio 2010, 15:23:26 »
scusate
un file *.txt con una lunghezza per ogni record e campi ben stabilita
tipo :
aaaaaaaaaa     bbbbbbbbbb
cccccccccc     ffffffffff
wwwwwwwwww     rrrrrrrrrr

con vb6 utilizzo questa procedura:

Option Explicit

Dim index As Integer

Private Type myrecord
    campo1 As String * 15
    campo2 As String * 10      
End Type

Private Sub Command1_Click()

Dim intfile As Integer

Dim leggi As myrecord

If index = 0 Then
  index = 1
End If

intfile = FreeFile

Open App.Path & "\miofile.txt" For Random As #intfile Len = 25
Get #intfile, index, leggi
Close #intfile

Label1.Caption = leggi.campo1
Label2.Caption = leggi.campo2

index = index + 1

End Sub

140
Programmazione (Gambas 2) / [risolto]read file
« il: 06 Gennaio 2010, 12:33:47 »
salve a tutti, la mia domanda è semplice come posso leggere un file con metodo casuale?
grazie

Pagine: 1 ... 8 9 [10]