Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto su impostazione file

Ciao, ho questo problema:
Da un file a.txt che č sull'hd, ho questo contenuto:
8/1/2002,17:41,MIBTELINDEX,18198,-445--2.39%       cioč:
data,ora,descrizione,valore,(+/-)movimento-(+/-)variazione percentuale
da questo dato, vorrei creare un programmino ke abbia la figura a griglia
tipo:
----------------------------------------------------------------------------
-----------
DATA    |    ORA    |   DESCRIZIONE    |  VALORE    |  VARIAZ    |   PERCENT
----------------------------------------------------------------------------
-----------
              |                 |                                |
|                   |
----------------------------------------------------------------------------
-----------
              |                 |                                |
|                   |
----------------------------------------------------------------------------
-----------
              |                 |                                |
|                   |
----------------------------------------------------------------------------
-----------
Qualcuno mi puň aiutare?
Grazie

 Grazie
un "programmino ke abbia la figura a griglia" come descritto, te lo puo'
creare a costo modico qualunque swhouse decente, in linea di massima in meno
di una giornata. forse anche qualcuno del ng, se ne ha voglia. ma,
trattandosi di mibtel, ho ragionevoli dubbi sul costo zero.
j.

 DATA    |    ORA    |   DESCRIZIONE    |  VALORE    |  VARIAZ    |   PERCENT
Niente di ciň
inserisci questo in un pulsante o fai tu
NFile = FreeFile
Open app.path & "\file.txt" For Input As #NFile
Do While Not EOF(NFile) ' Ripete fino alla fine del file.
   Line Input #NFile, Riga ' Assegna la riga a una variabile(di nome Riga).
'   A questo punto se non hai un tracciato fisso potresti orientari 
'   con  le   virgole
   conta = 0
   start = 0
   For i = 1 To Len(riga)
        start = start + 1
      If InStr(start, riga, ",") > 0 Then
         conta = conta + 1
 
      Else
         conta = fine
      End If
 
      Select Case conta
          Case 1
               Data1 = Mid$(riga, start, InStr(1, riga, ",") - 1)
               start = Len(Data1) + 1
          Case 2
 
               Data2 = Mid$(riga, start, InStr(start, riga, ",") - start)
               start = start + Len(Data2)
          Case 3
 
               Data3 = Mid$(riga, start, InStr(start, riga, ",") - start)
               start = start + Len(Data3)
          Case 4
 
               Data4 = Mid$(riga, start, InStr(start, riga, ",") - start)
               start = start + Len(Data4)
'a questo punto o metti una virgola per dividere i 2 dati-445--2.39%
'oppure fai +o- cosě
          Case Else
               data5 = Mid$(riga, start, lunghezzavariazoine - lunghezza%)
               data6 = Right(riga, lunghezza%)
     End Select
  Next
'A questo punto riempi la tua griglia
' DATA    |    ORA    |   DESCRIZIONE    |  VALORE    |  VARIAZ |   PERCENT
Loop
Close #NFile
Naturalmente il file deve stare nella stessa directory dell'eseguibile vedi
app.path & nomefile altrimenti nisba
SONO IN FERIE ;)))))))))))))))))))))))))))))))))))))))
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 'oppure fai +o- così
