| |
Загрузить/Сохранить текстовой файл из TextBox'а |
|
| |
Данный пример вам поможет быстро сохранить информацию в файл на диске, а также загрузить данные в TextBox
'Загрузить текстовой файл в TextBox
Dim FN as Integer
FN = FREEFILE
Dim FName as String
FName = "C:\tmp\index.txt"
Open FName For Input As #FN
Text1.Text = Input(LOF(FN), #FN)
Close #FN
'Сохранить текстовой файл из TextBox'а
Dim FN as Integer
FN = FREEFILE
Dim FName as String
FName = "C:\tmp\index.txt"
Open FName For Output As #FN
Print #FN, Text1.Text
Close #FN
|
|
| |
|
|
|
|