Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

[Vb.NET]Regel uit file filteren (Opgelost)

nick5556 - 25/11/2009 15:52
PHP beginner		Hallo, Laat ik gelijk maar to the point komen, uiteindelijk moet er in een opties menu een tekst veld komen waar men een startpagina in kan voeren, dit moet in een ini file, 'settings.ini', komen. Dus er moet ergens in die ini file iets staan als: HomePage = "http://www.sitemasters.be". Dit moet dus opgehaald worden en dan met de Navigate() functie gebruikt worden. Dat aanmaken van de file is geen probleem, het openen ook niet, maar hoe moet ik uit die file die ene regel filteren om daarna alleen de "http://www.sitemasters.be" in een variabele te zetten? Ik wil graag gebruik maken voor een functie.. Nick

4 antwoorden

Gesponsorde links

Ontani - 25/11/2009 15:56
-1		beter met een settings file werken Google.be: vb.net settings.settings

nick5556 - 25/11/2009 16:14 (laatste wijziging 25/11/2009 19:35)
PHP beginner		Er moeten ook Favorieten in deze file komen, ik was van plan in de ini file een soort array te maken die dit doet zegmaar: FavName = "Google.nl, Sitemasters.be" FavUrl = "'http://www.google.nl/', 'http://www.sitemasters.be'" zodat het makkelijk toe te voegen is, hoe moet ik deze optie dan opvangen als ik een settings file gebruik? EDIT: Oke ik heb dat settings geprobeerd, maar het ligt mij niet helemaal.. Ik raak continu in de war met me en my.. dus ik wil toch graag meer uitleg over de ini file.. EDIT2: vbnet code - Bekijk de code zonder highlighting - Klap code in Public Function FilterLine(ByVal file As String, ByVal StartWith As String) Dim objReader As New System.IO.StreamReader(file) Dim Line As String Dim LineAfter As String Do While objReader.Peek() <> -1 Line = objReader.ReadLine() If Line.StartsWith(StartWith) = True Then LineAfter = Line End If Loop objReader.Close() If LineAfter = "" Then Return LineAfter Else Return MsgBox("Niet gelukt, probeer opnieuw") End If Public Function FilterLine(ByVal file As String, ByVal StartWith As String) Dim objReader As New System.IO.StreamReader(file) Dim Line As String Dim LineAfter As String Do While objReader.Peek() <> -1 Line = objReader.ReadLine() If Line.StartsWith(StartWith) = True Then LineAfter = Line End If Loop objReader.Close() If LineAfter = "" Then Return LineAfter Else Return MsgBox("Niet gelukt, probeer opnieuw") End If Ik heb dit geprobeerd.. Maar dit werkt niet zoals het zou moeten. De lijn die ik wil filteren is deze: "Home = 'http://www.google.nl'". En ik gebruik de functie op de volgende manier: MsgBox(FilterLine(SetFile, "Home")). Eerst krijg ik een message box met daarin Niet gelukt... en daarna krijg ik gelijk een message box met een '1'.. als ik de functie weghaal krijg ik deze niet.. HELP!

Mario - 26/11/2009 09:12 (laatste wijziging 26/11/2009 09:18)
Crew algemeen		nick, hier LINK vind je een ini reader wat het je heel gemakkelijk maakt een inifile te maken/lezen/bewerken. Ik heb hem zelf al in verschilllende programma's gebruikt en kan hem je alleen maar aanraden. greetzzzz Mario Opmerking : Microsoft geeft duidelijk aan om custom data in XML files op te slaan, ini is eigenlijk al achterhaalt... Een voorbeeld : XML ex.

nick5556 - 26/11/2009 13:52

PHP beginner

Ik heb de functie wat aangepast, het werkt nu perfect!

De functie is nu:

vbnet code - Bekijk de code zonder highlighting - Klap code in

    Public Function FilterLine(ByVal file As String, ByVal startWith As String)

        Dim objReader As New System.IO.StreamReader(file)

        Dim Line As String
        Dim LineAfter As String = "Fail"
        Dim i As Integer = 1

        Do While objReader.Peek() <> -1
            Line = objReader.ReadLine()
            Line.ToString()
            If Line.StartsWith(startWith) Then
                LineAfter = Line
            End If
        Loop
        objReader.Close()
        Return LineAfter
    End Function

Public Function FilterLine(ByVal file As String, ByVal startWith As String)
 
        Dim objReader As New System.IO.StreamReader(file)
 
        Dim Line As String
        Dim LineAfter As String = "Fail"
        Dim i As Integer = 1
 
        Do While objReader.Peek() <> -1
            Line = objReader.ReadLine()
            Line.ToString()
            If Line.StartsWith(startWith) Then
                LineAfter = Line
            End If
        Loop
        objReader.Close()
        Return LineAfter
    End Function

En ik gebruik hem nu zo:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                HomeLine = FilterLine(SetFile, "HomePage")
arrayHome = HomeLine.Split("'")
HomePage = arrayHome(1)
Browser.Navigate(HomePage)
            
HomeLine = FilterLine(SetFile, "HomePage")
arrayHome = HomeLine.Split("'")
HomePage = arrayHome(1)
Browser.Navigate(HomePage)
 

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten