Woorden uit een tekstbestand halen

[HellupUandMe]

Hallo,

Ik wil een programma maken waarvan het uiterlijk wordt bepaald door wat er in een textbestand is opgeslagen. Het staat op de C:\. Dus stel: Er staat in het textbestand het volgende:

Volledigscherm aan
Formachtergrondkleur blauw
Schermtitel Een test programma

Dan wil ik als het programma wordt geladen dat ie er dan naar kijkt. Dus zeg maar zo:

if text uit textbestandje op de C:\ , regel1 na het woord Vollegscherm = "aan" then
me.windowstate = maximized
end if

select case text uit textbestandje op C:\ regel2 na het woord Formachtergrondkleur
case "blauw"
me.backcolor = color.blue
case "rood"
me.backcolor = color.red
end select

me.text = text uit textbestandje op C:\ regel3 na het woord Schermtitel

Ik hoop dat iemand mij snapt

 

[That Guy]

een simpele parser dus:

1. laad het bestand in een listbox op je form
2. bekijk per regel wat er staat. Bijvoorbeeld:

dim i as integer
for i = 1 to list1.listcount-1
Check(list1.list(i), i)
next i

Public function Check(sString as string, regelnr as integer)
msgbox "String: " & sString & vbcrlf & "Dat is regelnr. " & regelnr
end function

verander het 'msgbox sString' naar iets anders, bijvoorbeeld:

if left(sString,9) = "volscherm" then 
dim tempstring as string
tempstring = mid(sString, 10, len(sString))
select case tempstring
   case "aan"
      me.windowstate = maximized
   case "uit"
      me.windowstate = normal
end select
end if

 

[HellupUandMe]

Ik ben niet zo goed met VB2005 dus daarom weet ik niet waar ik de code moet plakken.
Ik heb hem onder de functie van een button gezet en kreeg toen kreeg ik foutmeldingen.
Klik hier om de printscreen te zien
Misschien is de afbeelding van slechte kwaliteit maar dan moet je hem effe in paint plakken.

Maar kan je misschien ook zeggen waar ik de code moet plakken?
(Ik weet namelijk ook niet hoe je 'm in een listbox laadt)

 

[That Guy]

deze code was voor VB6.0, voor 2005 moet iemand anders je helpen met (het overzetten van) de code.

 

[HellupUandMe]

Maar toch bedankt voor de moeite

Maar laat ik eens mijn vraag duidelijker stellen:
Stel, je hebt een tekstbestandje staan in de map C:\lol\test.txt
In dat tekst bestandje staat het volgende:

"Ik ben nu een hele domme vraag aan het stellen op Helpmij.nl
Ik weet het. Maarja. Trouwens kan iemand mij vertellen..."

Nou en je wil het woord achter het woord "domme" in je textbox1 op je form krijgen.
Hoe doe je dat?
En dan snap ik ook wel dat je textbox1.text = "vraag" kan doen maar dat bedoel ik niet, want stel dat je nog niet zo weten dat het woord achter "domme" het woord "vraag" is.
Dus dan moet ie eerst dat textbestandje uitlezen (C:\lol\test.txt) en dan moet ie het woord dat na het woord domme komt eruit vissen en in textbox1 plaatsen.

Nou volgens mij is mijn vraag hier niet echt duidelijker opgeworden maar dit was gewoon nog even een toelichting. Ik hoop dat iemand mij kan helpen en ik gebruik VB2005.

 

[kabourterplop]

Waarom met een txt bestandje doen als je het ook gewoon in je programma kan doen?
Dus bijv

Private sub Check_Settings()
 if my.settings.volscherm = "aan" then 'Volledig scherm
  me.windowstate = maximized
 end if
End sub

Je moet wel als je met VB werkt in je settings volscherm aanmaken.

Hopelijk heb je hier iets aan.

 

[HellupUandMe]

Ja dankjewel voor het meedenken. Maar ik wil dat gebruikers instellingen in mijn programma kunnen veranderen door een woord in een textbestand aan te passen.
Snappie?