Keskustelu: Ohjelmointikysymykset: Hinnan ja tehon erotus (VB6)

Ny ku Blaze neuvoi kuinka ohjelma löytää pilkun vaikka tekstitiedostosta ja lukee siitä eteenpäin, niin ny pitäis saada erotettua teho ja hinta toisistaan ettei ne tulisi samalle labelille.
Mulla on tekstitiedostossa näin: 305 cid v8,250hv
eli tuo pelkkä 250hv tuloo teholabeliin.
Nyt pitäis saada hintaki erotettua hintalabeliin eli tekstitiedostossa on näin: 305 cid v8,250hv.1000€
Ku pilkun jäläkehen erotetahan teho nii pitääs pisteen jäläkehen erottaa hinta hintalabeliin, mutta ku se ottaa hinnanki mukaan teholabeliin, kuinka sais rajattua ettei ota
ku tehon eri labeliin ja hinnan eri labeliin.
Tällä koodilla sain erottamaan pilkun jälkeen

Private Sub List1_Click()

Dim Rivi As String
Dim Piste As Integer
Dim Teho As Integer


    Rivi = tuote.List(tuote.ListIndex)

    Piste = InStr(Rivi, ".")




lblTeho.Caption = Right$(Rivi, Len(Rivi) - Piste - 1)

End Sub

Minä varmaan erottaisin kaikki tiedot pilkuilla: 305 cid v8,250hv,1000€

Sitten tiedot pystyy helposti erottamaan taulukkoon tietyn merkin kohdalta käyttämällä Split-funktiota.

Dim tiedot As String, osat() As String
tiedot = "305 cid v8,250hv,1000€"
' jaetaan merkkijono taulukkoon pilkkujen kohdalta
osat = Split(tiedot, ",")

MsgBox osat(0) ' 305 cid v8
MsgBox osat(1) ' 250 hv
MsgBox osat(2) ' 1000 €

Lisäksi yksikköjä (hv, €) ei ehkä kannata tallentaa tiedostoon, jos ne ovat aina samat. Yksiköt voi lisätä sitten jälkeenpäin ohjelmassa.

Ja jos et halua tuota hyvää keinoa käyttää, niin voithan ensin erottaa siitä pilkun kohdalta ja sitten sen saamasi pätkän vielä uudestaan pisteen kohdalta.

TOIMII TÄYDELLISESTI!!!!!!
Kiitoksia oikeen palio taas...