Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #18485

Re: Parsing di un file di testo

Show all headers | View raw

Il 27/08/2015, aren.hoxha@gmail.com ha detto :
> mi servirebbe un consiglio sull'argomento del parsing di un file di testo 
> delimitato da virgole


Private Sub Command1_Click()

Dim Txt2Ck As String, TxtBuf As String, ThePos As Integer
Txt2Ck = "13, 28 °C,14, 28 °C,15, 28 °C,22, 27 °C,23, 26 °C,24, 27 
°C,33, 26 °C,34, 27 °C,35, 26 °C,36, 27 °C,49, 29 °C,50, 29 °C,51, 29 
°C,54, 27 °C,55, 27 °C,56, 27 °C,61, 29 °C,62, 29 °C,63, 29 °C,64, 29 
°C,65, 29 °C,66, 29 °C,11,-1.00 bar,18,-0.99 bar,19,-1.00 bar,20,-1.00 
bar,21,-0.99 bar,22,-0.99 bar,23,-0.99 bar,25,-1.00 bar,26,-1.00 
bar,27,-0.99 bar,28,-1.00 bar,29,-0.99 bar,30,-0.99 bar,31,-0.99 
bar,33,-1.00 bar,34,-0.99 bar,35,-0.99 bar,36,-1.00 bar,37,-1.00 
bar,38,-0.99 bar,39,-1.00 bar,41,-1.00 bar,42,-0.99 bar,43,-1.00 
bar,44,-0.99 bar,45,-1.00 bar,46,-0.99 bar,47,-1.00 bar,65,-1.00 
bar,66,-0.99 bar,67,-0.99 bar,68,-0.99 bar,69,-0.99 bar,70,-0.99 
bar,71,-0.99 bar,73,-1.00 bar,74,-1.00 bar,75,-0.99 bar,77,-0.99 
bar,78,-0.98 bar,81,-0.99 bar,82,-0.99 bar,83,-0.99 bar,84,-1.00 
bar,85,-0.99 bar,86,-0.98 bar,87,-0.99 bar,89,-0.99 bar,90,-1.00 
bar,91,-1.00 bar,93,-0.99 bar,94,-0.99 bar,,,,,,,,,,,,,,,,,,,,"

Dim ArrayVal(800, 2) As String

For i = 1 To Len(Txt2Ck)
 If Mid(Txt2Ck, i, 1) <> "," Then
     TxtBuf = TxtBuf & Mid(Txt2Ck, i, 1)
   Else
     If Len(CStr(Val(TxtBuf))) = Len(TxtBuf) Then
        ThePos = Val(TxtBuf)
      Else
        ArrayVal(ThePos, 0) = ThePos
        If InStr(TxtBuf, "°C") Then
            ArrayVal(ThePos, 1) = TxtBuf
         Else
            ArrayVal(ThePos, 2) = TxtBuf
        End If
     End If
     TxtBuf = ""
 End If
Next i

MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = 3
MSFlexGrid1.TextMatrix(0, 0) = ""
MSFlexGrid1.TextMatrix(0, 1) = "°C"
MSFlexGrid1.TextMatrix(0, 2) = "Bar"

For i = 0 To 800
 MSFlexGrid1.AddItem ""
 MSFlexGrid1.TextMatrix(i + 1, 0) = ArrayVal(i, 0)
 MSFlexGrid1.TextMatrix(i + 1, 1) = ArrayVal(i, 1)
 MSFlexGrid1.TextMatrix(i + 1, 2) = ArrayVal(i, 2)
Next i

End Sub

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Parsing di un file di testo aren.hoxha@gmail.com - 2015-08-27 14:48 -0700
  Re: Parsing di un file di testo aren.hoxha@gmail.com - 2015-08-27 15:14 -0700
  Re: Parsing di un file di testo mmm <mmm@john.bluto.blutarsky.it> - 2015-08-28 09:48 +0200
  Re: Parsing di un file di testo "Sauro" <vicchi@crsscala.it> - 2015-08-28 10:19 +0200
  Re: Parsing di un file di testo Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2015-08-28 15:21 +0200
  Re: Parsing di un file di testo aren.hoxha@gmail.com - 2015-08-28 14:56 -0700
    Re: Parsing di un file di testo Luca D <antaniserse@yahoo.it> - 2015-08-28 15:46 -0700
    Re: Parsing di un file di testo Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2015-08-29 14:43 +0200

csiph-web