Miten saan määriteltyä merkin värin? Olen tekemässä ohjelmaa joka lukee ensimmäisestä tidostosta merkkejä ja tallentaa ne toiseen tiedostoon tietty merkki tietyn värisenä.
Lue merkki, anna sille väri(vaikkapa case:lla) ja tallenna se tiedostoon väriarvon kera.
esimerkki:
Dim merkki As String * 1
Dim vari As Integer
Open "tiedosto" For Input As #1 'Luettava tiedosto
Open "tiedosto2" For Output As #2 'Kirjotettava tiedosto
Do Until EOF(1) 'Kunnes tiedosto loppuu
merkki = Input(1, 1) ' luetaan merkki
Select Case merkki 'selectin alotus
Case Is = "a" 'jos merkki on a
vari = 1 'niin väriarvo on 1
Case Is = "b" 'jos merkki on b
vari = 2 'niin väriarvo on 2
Case Is = "c" 'jos merkki on c
vari = 3 'niin väriarvo on 3
End Select 'selectin lopetus :D
Print #2, merkki + "," + Str(vari) 'tallennetaan merkki väriarvon kera
Loop
Close #2
Close #1Jos luet tuota tiedostoa, johon merkit tallennetaan väriarvojen kera, omalla ohjelmalla, suosittelisin jättämään tuon tallentamisen väliin ja näyttää ne sen sijaan. Toivottavasti ymmärsin oikein :)
Ongelma on juuri se, että tuota teksti tiedosto pitäisi pystyä lukemaan ilman itse ohjelmaa.
Ehkäpä sen vois tehdä jotenkin muokkaamalla tekstiä vaikka wordpadin kautta... Mutta ei hajuakaan voiko sitä sillä tavalla tehdä ja vielävähemmän miten semmonen tehtäs.
Tavallisessa tekstitiedostossa ei voi olla värejä, joten sinun täytyy käyttää jotain monimutkaisempaa tiedostomuotoa. Ihan hyvä vaihtoehto voisi olla RTF, jonka käsittelyyn on olemassa jopa oma kontrolli (Project->Components, Microsoft Rich Textbox Control). Voit käyttää tallennuksessa suoraan kontrolliin kuuluvaa SaveFile-toimintoa. Tekstin kohdan värin muuttamiseen löytyy vinkkejä haulla.
Kiitos erittäin paljon, mutta kysympä tähän samaan hengen vetoon miten vb.net:ssä korvataan control arrayn puuttuminen.
Aihe on jo aika vanha, joten et voi enää vastata siihen.