Программирование
Веб программирование

Запись в ini файл из VB

 
 

Как всегда сделаем программу, на форму кинь текст. поле, кнопку(Caption = "Запись"), вот код:

' Объявляем API
Private 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 

Private Sub Command1_Click()
Dim Left As String, Top As String, Text As String
' Устанавливаем значение переменных
Left = Form1.Left
Top = Form1.Top
Text = Text1.Text

WritePrivateProfileString "Setup", "Left", Left, App.Path & "/set.ini" ' Записываем в раздел Setup в переменную Left значение переменной Left(Form1.Left), и все это записываем в файл set.ini(при помощи App.Path узнаем путь к программе), если этого файла нет то он создается. 
WritePrivateProfileString "Setup", "Top", Top, App.Path & "/set.ini" ' Записываем значение переменной Top
WritePrivateProfileString "Text", "Text1", Text, App.Path & "/set.ini" ' Записываем текст, который находится в текстовом поле(в переменной Text)
End Sub

Исходник ищи Здесь


Есть вопросы? Спроси на нашем форуме!!
Алексей [28.04.2012 13:51]

Подскажите мне как нужно сделать чтоб он записыва/сохранял файл не заменяя предыдущий.
Заранее спасибо

ilf [09.01.2013 20:42]

а почему через API? можно же и с помощью open (путь) for append ...



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.