Работа с файлами

[BAXTEP]

У меня есть label1 и файл test.txt (который лежит на C:/) Как сделать так что бы текст из файла высвечивался в label1.caption

[SergeySV]

У меня есть label1 и файл test.txt (который лежит на C:/) Как сделать так что бы текст из файла высвечивался в label1.caption

Почитай справку про: Open "TESTFILE" For Input As #1 и Line Input #1, LineOfText

[Firestorm]

вот

Код: Выделить всё

dim str as string 'переменная под строчку текста

open "c:\tvoifail.txt" for input as #1 'открываем текстовой файл
line input #1, str 'считываем первую строку, и присваеваем str
close #1 'закрываем файл

label1.caption=str 'меняем текст на lebel'е


как я понял, ты хочешь сделать поддержу других языков, т.е. при запуске программы загружать все "приписи" к контролам...
если так, то тебе советую использовать ini файл (мммм.... чувствую опять начнутся споры по поводу что лучше использова: txt, ini, xml или базу данных )...

[Александр Андреев]

как-то так:

Код: Выделить всё

Dim FileNumber As Integer
Dim str As String

FileNumber = FreeFile

' Open file
Open "c:\myfile.txt" For Input As #FileNumber
Label1.Caption = ""

Do While Not EOF(FileNumber)   ' Loop until end of file.
   Input #FileNumber, str
   Label1.Caption = Label1.Caption + str
Loop

Close #FileNumber

[ShadowCaster]

странные вы люди...

dim s as string
open "c:\test.txt" for binary as #1

s = space(lof(1))
get #1,,s
close #1
label1.caption = s

[Firestorm]

2ShadowCaster
а накой как binary открывать?

[alibek]

Чтобы считать весь файл разом, что тут непонятного.
Только для маленьких программ лучше мультиязычность делать не с помощью внешних файлов, а добавлением файла ресурсов, тип "String Table", который идеально подходит для этих целей.