Buona sera...
ho una domanda un pò intrigante...
io apro così un file....
vorrei che la parte di ...codice:Const dbase As String = "C:\dbLotto\Estrazio.dat" Private Type estrat dataestraz As String * 9 nu1 As String * 2 nu2 As String * 2 nu3 As String * 2 nu4 As String * 2 nu5 As String * 2 nu6 As String * 2 nu7 As String * 2 nu8 As String * 2 nu9 As String * 2 nu10 As String * 2 nu11 As String * 2 nu12 As String * 2 nu13 As String * 2 nu14 As String * 2 nu15 As String * 2 nu16 As String * 2 nu17 As String * 2 nu18 As String * 2 nu19 As String * 2 nu20 As String * 2 nu21 As String * 2 nu22 As String * 2 nu23 As String * 2 nu24 As String * 2 nu25 As String * 2 nu26 As String * 2 nu27 As String * 2 nu28 As String * 2 nu29 As String * 2 nu30 As String * 2 nu31 As String * 2 nu32 As String * 2 nu33 As String * 2 nu34 As String * 2 nu35 As String * 2 nu36 As String * 2 nu37 As String * 2 nu38 As String * 2 nu39 As String * 2 nu40 As String * 2 nu41 As String * 2 nu42 As String * 2 nu43 As String * 2 nu44 As String * 2 nu45 As String * 2 nu46 As String * 2 nu47 As String * 2 nu48 As String * 2 nu49 As String * 2 nu50 As String * 2 End Type Dim RecordEstr As estrat Dim RecorDnum As Integer Dim inFile As Integer Private Sub Leggi(numero As Integer) inFile = FreeFile Open dbase For Random As #inFile Len = Len(RecordEstr) RecorDnum = LOF(inFile) / Len(RecordEstr) Get #inFile, numero, RecordEstr estraz1.Caption = numero Close #1 End Sub
che i dati che ora sono in nu1 ecc... al posto di entrare in una variabile fossero in un array del tipo num() ...codice:nu1 As String * 2 nu2 As String * 2 nu3 As String * 2 nu4 As String * 2 nu5 As String * 2 ... ... nu50 As String * 2
e così potrei prenderli tranquillamente inserendo
calcolo=RecordEstr.num(1) o calcolo=RecordEstr.num(40) ecc...
e possibile?
Grazie mille :sgrat:
Rispondi quotando
quindi mi sono risposto... thx lo stesso...
