problem u visual basicu

[luka6253]

Dim FILE_NAME As String = "C:\Users\Owner\Documents\test.txt"

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

TextBox1.Text = objReader.ReadToEnd

objReader.Close()

napisao sam taj kod ali mi visual basic javlja error kod Text.Box1.text piše da Text.Box1 nije deklariran
ako bi netko znao u čemu je problem

[pedja089]

Taj nacin pristupa fajlu nikad nisam koristio...
Pokusaj jednostavno sa open otvoriti fajl, sa input iscitati ga, i ubaciti u texbox, i zatim ga zatvoriti.

[luka6253]

jel možeš napisati kod za to

[pedja089]

http://tinyurl.com/66pupgs" onclick="window.open(this.href);return false;

[luka6253]

pogledao sam link koji si stavio i nasao nesto ovako-

Open "c:\myFile" For Output As #1
write "nesto" #1
Close #1

taj sam kod napisao za otvaranje text dokument U visual basic i javlja mi nekoliko grešaka koje ne znam ispravi
jel znas u cem je problem

[pedja089]

write "nesto" #1 tu je
Zameni mesta...

[luka6253]

ne razumijem

[pedja089]

Prvo navodis hendle pa onda string.
Sto bi znacilo
write #1,"nesto"
Probaj i print, ja ga uvek koristim.

[luka6253]

meni visual basic kad napisem neki kod npr. ovaj

openaccess "c:/file.txt" for output as #1
Write #1, "nešto"
close #1

pokazuje greške skoro na cijelom kodu a ne znam ih riješit
jel znas u cem je problem

[pedja089]

Odakle ti ova komanda openacess Nikad cuo za nju...
Kad okacis projekat onda cu moci vise da ti pomognem...
I za path nije c:\file.txt

[luka6253]

openaccess sam nasao u microsoft visual basic namespace
otvaranje text dokumenta mi treba za spremanje vremena
imam program u visual bascu kojim se upravlja preko serijskog porta, program je napravljen tako da kad se na serijskom portu spoje odrđeni pinovi ( mislim 4 i 5 , nisam točno siguran) program pokaze vrijeme i datum
sad bi to vrijeme i datum htio spremiti u jedan text dokument.
kod za program sam uzeo od alarma, ja sam izmjenio neke nazive i upotrebljvam ga za elektroničko zvono.
kod je dobar samo što bi hto još da mi program spremi vrijeme u neki dokument

[pedja089]

Uzmi open for otput print close, to mora da radi...

[WhiteHead]

Ili..
koristiti api funkciju za upis u INI fajl
deklaracija:
Declare Function WritePrivateProfileString Lib _
"kernel32" Alias "WritePrivateProfileStringA" (ByVal _
lpApplicationName As String, ByVal lpKeyName As Any, _
ByVal lpString As Any, ByVal lpFileName As String) As Long

funkcija:
Public Sub PisiINI(Grupa As String, KLJUC As String, Vrijednost As String, INIime As String) 'piše u INI fajl
Dim rc As Long
rc = WritePrivateProfileString(Grupa, KLJUC, Vrijednost, INIime)
End Sub

[micromatic]

Code: Select all

' Sljedeći kod čita datoteku i upisuje je
' u Text1 textbox na formi koji svojstvo
' MultiLine treba imati postavljeno u TRUE

FName = "c:/boot.ini"               ' naziv datoteke s putanjom
Open FName For Input As #1          ' otvaramo kao #1
Text = ""                           ' Text= prazan string na početku
While Not EOF(1)                    ' ponavljamo do kraja datoteke
    Input #1, Linija                ' iz datoteke #1 pročitamo liniju
    Text = Text & Linija & vbCrLf   ' koju dodamo na stari sadržaj Text_a i dodamo kraj reda
Wend                                ' na kraju datoteke
    Text1.Text = Text               ' u textbox Text1 upišemo cijeli text
Close #1                            ' i zatvorimo otvorenu datoteku