VB 2008 pomoc

Zanima me kako baratati datotekama u VB 2008...naime,želio bih preko VB-a spremiti nekakav text u .txt datoteku

pokušao sam sa

FileSystem

ali nisam ništa uspio...neznam kako sad spremiti text (npr.koji netko ukuca u textbox ili nesto drugo,richtextbox pa klikne save)

idem vidit pa javim

        Dim var As String
        var = "Test!!!!!!!!!!!!!!!"

        FileSystem.FileOpen(1, "X:\\test.txt", OpenMode.Output)
        FileSystem.PrintLine(1, var)
        FileSystem.FileClose(1)

Evo drugog problema...ovo sam uspio...sada sam uspio napraviti data.txt datoteku i namjestio sam da u data.txt piše

Prvo pokretanje = 0

sada želim izvesti da ako je u datoteki data.txt

Prvo pokretanje = 0

da program napiše neku poruku putem MsgBox-a i da zatim Prvo pokretanje = 0 pretvori u Prvo pokretanje = 1 kako se ta poruka

nakon drugog pokretanja programa više ne bi pokazivala...mislim to kao u nekim programima ono što piše " Ovo je vaš prvi put da ste pokrenuli...."

i ako mi netko može pomoći kako da ovo pretvorim da funkcionira (ovo je samo primjer)

dim PrvoPokretanje

PrvoPokretanje=FileSystem.FileOpen("c:\users\scorpion\desktop\data.txt")

if PrvoPokretanje.Text.EndsWith("1") then

 msgBox("Dobrodošli u ....", MsgBoxStyle.Information , " Dobrodošli!")

endif

dim var as string

var = "1"

FileSystem.PrintFile(1,var)

sad ako bi netko htio da to funkcionira napravit :D

ali to je kod da otvori datoteeku i da u msgboxu ispiše sve što se nalazi u tom file-u...a meni treba kod da ako u datoteki data.txt piše PrvoOtvaranje = 0 da se onda pojavi msgbox ali ako je nešto drugačije da se ne pojavi

Evo trece pitanje....moze mi netko dati primjer za sustav registracije...npr

imam register formu (vec sam je napravio) i sad kad netko klikne gumb da se podatci spreme u bazu podataka

i kad se program ugasi i opet upali da može očitati neke podatke

ako je teško onda nemojte....

P.S.

nadam se da nesmeta što je ovo treće pitanje,otvorio sam temu da ovdje mogu postavljati pitanja a ne da za svasko pitanje ide nova tema...

funkcija kodiraj, tek tolko da se sa notepadom nemogu procitat podaci o korisniku:


    Function Kodiraj(ByVal str As String, ByVal op As Integer) As String
        Dim i As Integer, a As String, b As Integer
        Dim rezultat As String
        For i = 1 To Len(str)
            a = Mid(str, i, 1)
            b = Asc(a)
            b = b + op

            rezultat = rezultat & Chr(b)
        Next

        Return rezultat

    End Function



sa istom ovom funkcijom se dobiva originalni tekst.



kad se sve ucita sa diska jos treba funkcija koja cita sto se nalazi u html tagu:


    Function UcitajTag(ByVal ulaz As String, ByVal tag As String) As String
        Dim i As Integer, a As String, j As Integer
        Dim x1 As Integer, x2 As Integer
        Dim rezultat As String
        For i = 1 To Len(ulaz)
            a = Mid(ulaz, i, Len(tag) + 2)

            If a = "<" & tag & ">" Then
                x1 = i + Len(tag) + 2
            End If

            If a = "</" & tag Then
                x2 = i
            End If
        Next

        rezultat = Mid(ulaz, x1, (x2 - x1))
        Return rezultat
    End Function




malo complicated al jbga. neznam laksi nacin

Btw, .NET ima ugrađeni parser XML datoteka, mogao si njega koristiti.

Ustvari je, ako radiš parser koji će parsati bilo koji XML kod (koji je pisan po XML standardu).

Pa ima veze sa XML-om. Tagovi su osnova XML-a...

.NET ti usput osigura da će raditi u svim okolnostima (npr. što ako nema teksta između tagova? Nisam gledao tvoj kod, ali moguće je da bi se onda srušio.). Osim toga, ako poželiš kasnije neku novu mogućnost (npr. grupiranje više čvorova u jedan), nećeš se morati mučiti sa vlastitom implementacijom.

molim vas hitno pomoc...dok sam updateo windowse vistu home premium i dok se zavrsilo ja sam iso ugasit komp tako da se mogu instalirat pa opet upalit da se configuriraju....

i sad nemogu pokrenit nikoji project u VB ! ali to mi se vec dogodilo..pa sam isao system restore i sve je radilo....evo slika:

probao sam ali nece....