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 #1
Jos 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.