VBNet - Форум - Ещё вопрос по работе с INI файлами

Вопрос: Ещё вопрос по работе с INI файлами Добавлено: 28.06.03 00:03

Автор вопроса: denver_t

Значится так: Подключаю к проекту библиотечку Microsoft Word 8.0/9.0 Object Library, в ней есть обьект SYSTEM и свойство этого обьекта PrivateProfileString. С помощью него можно читать и писать файлы типа myfile.ini
System.PrivateProfileString("d:\ MyFile.INI", "test1", "key1") = "andy" - создаём в INI файле запись типа
[test1]
key1=andy
Но при запуске проекта выскакивает ругательное окошко:"ActiveX component can't create object".
Может кто знает в связи с чем это происходит и как решить эту проблемку ??? Заранее спасибо.

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

Zeus

ICQ: 161801353

Вопросов: 63
Ответов: 220

Web-сайт: apirussia.by.ru
Профиль | | #1

Добавлено: 28.06.03 00:58

работаешь с ини - используй апи!

Ответить

Номер ответа: 2
Автор ответа:

denver_t

Вопросов: 8
Ответов: 25

Профиль | | #2

Добавлено: 28.06.03 10:11

Спасибо конечно за совет, а вот на VBSTREETS.RU даже кодом помогли, если кому нужен, вот он:

' В модуль ***********************************************
Private Declare Function GetPrivateProfileInt Lib "kernel32" _
Alias "GetPrivateProfileIntA" _
(ByVal strSection As String, _
ByVal strKeyName As String, _
ByVal lngDefault As Long, _
ByVal strFileName As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" _
(ByVal strSection As String, _
   ByVal strKeyName As String, _
   ByVal strDefault As String, _
   ByVal strReturned As String, _
   ByVal lngSize As Long, _
   ByVal strFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(ByVal strSection As String, _
    ByVal strKeyNam As String, _
    ByVal strValue As String, _
    ByVal strFileName As String) As Long
Public Function GetValueString(strSection As String, _
strKey As String, strFile As String) As String
Dim strBuffer As String * 256
Dim intSize As Integer
On Error GoTo PROC_ERR

intSize = GetPrivateProfileString(strSection, strKey, "", _
strBuffer, 256, strFile)
GetValueString = Left$(strBuffer, intSize)

PROC_EXIT:
Exit Function

PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, _
vbExclamation = vbOKOnly, "GetValueString"
Resume PROC_EXIT
End Function
Public Function SetValue(strSection As String, strKey As String, _
strValue As String, strFile As String) As Integer
Dim intStatus As Integer
On Error GoTo PROC_ERR

intStatus = WritePrivateProfileString(strSection, strKey, _
strValue, strFile)
SetValue = (intStatus <> 0)

PROC_EXIT:
Exit Function

PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, _
vbExclamation = vbOKOnly, "SetValue"
Resume PROC_EXIT
End Function

' В форму *************************************************

Dim q as variant
'чтение
GetValueString("Раздел", "Имя параметра", "Путь до ini")
'запись
q = SetValue("Раздел", "Имя параметра", "Значение", "Путь до ini")

Ответить

Страница: 1 |