carica la matrice mix con tutti i dati
carica sceglipersona in DATI0, SCHEDARIO, BATTESIMO ecc
carica listacomponenti in DATI0 e SCEHDARIO
carica sceglifamiglia in DATI0 e SCHEDARIO




Sub Melencopersone()
'MsgBox "ELENCOPERSONE"

Open percorsodoc & "\persone inserite\elencopersone.txt" For Input As #1
j = 0
Do Until EOF(1)
j = j + 1
Input #1, mix(j, 1), mix(j, 2), mix(j, 3), mix(j, 4), mix(j, 5), mix(j, 6), mix(j, 7), mix(j, 8), mix(j, 9), mix(j, 10), mix(j, 11), mix(j, 12), mix(j, 13), mix(j, 14), mix(j, 15), mix(j, 16), mix(j, 17), mix(j, 18), mix(j, 19), mix(j, 20), _
mix(j, 21), mix(j, 22), mix(j, 23), mix(j, 24), mix(j, 25), mix(j, 26), mix(j, 27), mix(j, 28), mix(j, 29), mix(j, 30), mix(j, 31), mix(j, 32), mix(j, 33), mix(j, 34), mix(j, 35), mix(j, 36), mix(j, 37), mix(j, 38), mix(j, 39), mix(j, 40), _
mix(j, 41), mix(j, 42), mix(j, 43), mix(j, 44), mix(j, 45), mix(j, 46), mix(j, 47), mix(j, 48), mix(j, 49), mix(j, 50), mix(j, 51), mix(j, 52), mix(j, 53), mix(j, 54), mix(j, 55), mix(j, 56), mix(j, 57), mix(j, 58), mix(j, 59), mix(j, 60), _
mix(j, 61), mix(j, 62), mix(j, 63), mix(j, 64), mix(j, 65), mix(j, 66), mix(j, 67), mix(j, 68), mix(j, 69), mix(j, 70), mix(j, 71), mix(j, 72), mix(j, 73), mix(j, 74), mix(j, 75), mix(j, 76), mix(j, 77), mix(j, 78), mix(j, 79), mix(j, 80), _
mix(j, 81), mix(j, 82), mix(j, 83), mix(j, 84), mix(j, 85), mix(j, 86), mix(j, 87), mix(j, 88), mix(j, 89), mix(j, 90), mix(j, 91), mix(j, 92), mix(j, 93), mix(j, 94), mix(j, 95), mix(j, 96), mix(j, 97), mix(j, 98), mix(j, 99), mix(j, 100), _
mix(j, 101), mix(j, 102), mix(j, 103), mix(j, 104), mix(j, 105), mix(j, 106), mix(j, 107), mix(j, 108), mix(j, 109), mix(j, 110), mix(j, 111), mix(j, 112), mix(j, 113), mix(j, 114), mix(j, 115), mix(j, 116), mix(j, 117), mix(j, 118), mix(j, 119), mix(j, 120), _
mix(j, 121), mix(j, 122), mix(j, 123), mix(j, 124), mix(j, 125), mix(j, 126), mix(j, 127), mix(j, 128), mix(j, 129), mix(j, 130), mix(j, 131), mix(j, 132), mix(j, 133), mix(j, 134), mix(j, 135), mix(j, 136), mix(j, 137), mix(j, 138), mix(j, 139), mix(j, 140), _
mix(j, 141), mix(j, 142), mix(j, 143), mix(j, 144), mix(j, 145), mix(j, 146), mix(j, 147), mix(j, 148), mix(j, 149), mix(j, 150), mix(j, 151), mix(j, 152), mix(j, 153), mix(j, 154), mix(j, 155), mix(j, 156), mix(j, 157), mix(j, 158), mix(j, 159), mix(j, 160), _
mix(j, 161), mix(j, 162), mix(j, 163), mix(j, 164), mix(j, 165), mix(j, 166), mix(j, 167), mix(j, 168), mix(j, 169), mix(j, 170), mix(j, 171), mix(j, 172), mix(j, 173), mix(j, 174), mix(j, 175), mix(j, 176), mix(j, 177), mix(j, 178), mix(j, 179), mix(j, 180), _
mix(j, 181), mix(j, 182), mix(j, 183), mix(j, 184), mix(j, 185), mix(j, 186), mix(j, 187), mix(j, 188), mix(j, 189), mix(j, 190), mix(j, 191), mix(j, 192), mix(j, 193), mix(j, 194), mix(j, 195), mix(j, 196), mix(j, 197), mix(j, 198), mix(j, 199), mix(j, 200), _
mix(j, 201), mix(j, 202), mix(j, 203), mix(j, 204), mix(j, 205), mix(j, 206), mix(j, 207), mix(j, 208), mix(j, 209), mix(j, 210), mix(j, 211), mix(j, 212), mix(j, 213), mix(j, 214), mix(j, 215), mix(j, 216), mix(j, 217), mix(j, 218), mix(j, 219), mix(j, 220), _
mix(j, 221), mix(j, 222), mix(j, 223), mix(j, 224), mix(j, 225), mix(j, 226), mix(j, 227), mix(j, 228), mix(j, 229), mix(j, 230), mix(j, 231), mix(j, 232), mix(j, 233), mix(j, 234), mix(j, 235), mix(j, 236), mix(j, 237), mix(j, 238), mix(j, 239), mix(j, 240), _
mix(j, 241), mix(j, 242), mix(j, 243), mix(j, 244), mix(j, 245), mix(j, 246), mix(j, 247), mix(j, 248), mix(j, 249), mix(j, 250)
Loop
Close #1
'MsgBox "numeroschede " & j
numschedepersonali = j
'MsgBox j

DATI0.sceglipersona.Clear
DATI0.listacomponenti.Clear
DATI0.sceglifamiglia.Clear
'MsgBox 1
DATI0.sceglipersona.ColumnCount = 4
DATI0.sceglipersona.AddItem
DATI0.sceglipersona.List(0, 0) = "COGNOME"
DATI0.sceglipersona.List(0, 1) = "NOME"
DATI0.sceglipersona.List(0, 2) = "DATA DI NASCITA"


DATI0.sceglifamiglia.ColumnCount = 4
DATI0.sceglifamiglia.AddItem
DATI0.sceglifamiglia.List(0, 0) = "COGNOME"
DATI0.sceglifamiglia.List(0, 1) = "INDIRIZZO"
DATI0.sceglifamiglia.List(0, 2) = "COMUNE"


DATI0.listacomponenti.ColumnCount = 10
DATI0.listacomponenti.AddItem
DATI0.listacomponenti.Column(0, 0) = "n°"
DATI0.listacomponenti.Column(1, 0) = "NOMINATIVO"
DATI0.listacomponenti.Column(2, 0) = "POSIZ. FAM."
DATI0.listacomponenti.Column(3, 0) = "DATA NASCITA"
DATI0.listacomponenti.Column(4, 0) = "INDIRIZZO"
DATI0.listacomponenti.Column(5, 0) = "NOMINATIVO PADRE"
DATI0.listacomponenti.Column(6, 0) = "NOMINATIVO MADRE"

fff = 0
If j = 0 Then GoTo 1000
For g = 1 To numschedepersonali
DATI0.sceglipersona.AddItem
DATI0.sceglipersona.List(g, 0) = mix(g, 1)
DATI0.sceglipersona.List(g, 1) = mix(g, 2)
DATI0.sceglipersona.List(g, 2) = mix(g, 3)
DATI0.sceglipersona.List(g, 3) = mix(g, 100)
DATI0.sceglipersona.List(g, 4) = g
If mix(g, 102) = "capofamiglia" Then fff = fff + 1
If mix(g, 102) = "capofamiglia" Then SCHEDARIO.sceglifamigliaS.AddItem
If mix(g, 102) = "capofamiglia" Then SCHEDARIO.sceglifamigliaS.List(fff, 0) = mix(g, 1)
If mix(g, 102) = "capofamiglia" Then SCHEDARIO.sceglifamigliaS.List(fff, 1) = mix(g, 21) & ", " & mix(g, 22)
If mix(g, 102) = "capofamiglia" Then SCHEDARIO.sceglifamigliaS.List(fff, 2) = mix(g, 20)
If mix(g, 102) = "capofamiglia" Then SCHEDARIO.sceglifamigliaS.List(fff, 3) = mix(g, 101)
Next g

For g = 1 To numschedepersonali
DATI0.listacomponenti.AddItem
DATI0.listacomponenti.List(g, 0) = mix(g, 136)
DATI0.listacomponenti.List(g, 1) = mix(g, 1) & " " & mix(g, 2)
DATI0.listacomponenti.List(g, 2) = mix(g, 102)
DATI0.listacomponenti.List(g, 3) = mix(g, 3)
DATI0.listacomponenti.List(g, 4) = mix(g, 21) & ", " & mix(g, 22)
DATI0.listacomponenti.List(g, 5) = mix(g, 103) & " " & mix(g, 104)
DATI0.listacomponenti.List(g, 6) = mix(g, 105) & " " & mix(g, 106)
DATI0.listacomponenti.List(g, 7) = mix(g, 101)
DATI0.listacomponenti.List(g, 8) = mix(g, 100)
DATI0.listacomponenti.List(g, 9) = Left(mix(g, 120), 1) & g

Next g
'MsgBox DATI0.listacomponenti.ListCount
1000

BATTESIMO.sceglipersona.List = DATI0.sceglipersona.List
BATTESIMOusoM.sceglipersona.List = DATI0.sceglipersona.List
CRESIMA.sceglipersona.List = DATI0.sceglipersona.List
BIGLIETTO.sceglipersona.List = DATI0.sceglipersona.List
IDONEITA.sceglipersona.List = DATI0.sceglipersona.List
SCHEDARIO.sceglipersonaS.List = DATI0.sceglipersona.List
SCHEDARIO.sceglifamigliaS.List = DATI0.sceglifamiglia.List
SCHEDARIO.listacomponenti.List = DATI0.listacomponenti.List

BATTESIMO.sceglipersona.ListIndex = -1
BATTESIMOusoM.sceglipersona.ListIndex = -1
CRESIMA.sceglipersona.ListIndex = -1
BIGLIETTO.sceglipersona.ListIndex = -1
IDONEITA.sceglipersona.ListIndex = -1

End Sub