Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с ini / 10 сообщений из 10, страница 1 из 1
25.01.2005, 12:03
    #32882023
lilo12
lilo12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
Если у кого ни-ть есть примеры работы с ini файлами пожалуйста пришлите мне на мыло Dima11@ukr.net очень надо, плиз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2005, 12:26
    #32882104
_bob
_bob
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
по-моему ты не единственный, кому это интересно, поэтому не на мыло а сюда

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public 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

Public Function readINI(sINIFile As String, sSection As String, sKey As String, sDefault As String) As String
Dim sTemp As String * 255
Dim nLength As Long
On Error Resume Next

sTemp = Space$(256)
nLength = GetPrivateProfileString(sSection, sKey, sDefault, sTemp, 255, sINIFile)

readINI = left$(sTemp, nLength)
End Function

Sub writeINI(sINIFile As String, sSection As String, sKey As String, sValue As String)
Dim n As Long
Dim sTemp As String
On Error Resume Next
sTemp = sValue
sValue = Replace(Replace(sValue, vbCr, " "), vbLf, " ")
n = WritePrivateProfileString(sSection, sKey, sTemp, sINIFile)
End Sub


------------------
Best regards, _bob
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2005, 12:54
    #32882188
lilo12
lilo12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
Это в модуле а вот теперь назревает такой вопрос как записать ту что нить и потом считать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2005, 15:09
    #32882600
lilo12
lilo12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
Пришлите какой ни-ть пример или в форуме напишите плз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2005, 15:47
    #32882706
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
2 lilo12
Данный вопрос в форуме уже неоднократно обсуждался.

Чем не устраивает ответ _bob ?
Все что тебе остало0сь сделать это вызвать фунцкции с твоими параметрами.

Вот еще по теме.
http://www.sql.ru/forum/actualthread.aspx?tid=81877&hl=ini

Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.01.2005, 15:04
    #32887274
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
Работает отлично! если коментарии сохранятся - ещё лучше!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
23.04.2011, 07:02
    #37229960
Alex Dark
Alex Dark
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
Подскажите, где я затупил?
Вот код. Две функции. Одна сохраняет ini-файл, другая читает его.
Та что сохраняет работает. На диске создаётся ini-файл.

Та что читает - нифига не читает.
Каждый раз возвращает значение по умолчанию, т.е для PathInput=" -+" для PathOut="-+ "


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
    
dim PathInput as string
dim PathOut as string
    Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long

    Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpString As String, _
ByVal lpFileName As String) As Long

    Public Function ReadFileIni() As Boolean

            FullNameIni = "C:\FU.ini"

            myStr = Space( 100 )
            Call GetPrivateProfileString("General", "PathInput", " -+", myStr, Len(myStr), FullNameIni)
            PathInput = Trim(myStr)
            myStr = Space( 256 )
            Call GetPrivateProfileString("General", "PathOut", "-+ ", myStr, Len(myStr), FullNameIni)
            PathOut = Trim(myStr)
    End Function

Public Function SaveFileIni() As Boolean
        FullNameIni = "C:\FU.ini"

        Call WritePrivateProfileString("General", "PathInput", PathInput, FullNameIni)
        Call WritePrivateProfileString("General", "PathOut", PathOut, FullNameIni)
    End Function


PS у меня VB 2005 express edition
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2011, 07:44
    #37229964
Alex Dark
Alex Dark
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
Вот упростил до одной функции
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
    Public Function SaveFileIni() As Boolean
        FullNameIni = "C:\FU.ini"
        PathInput = Space( 100 )
        PathOut = Space( 100 )

        Call WritePrivateProfileString("General", "PathInput", "PathInput", FullNameIni)
        Call WritePrivateProfileString("General", "PathOut", "PathOut+PathOut+PathOut+PathOut", FullNameIni)


        GetPrivateProfileString("General", "PathOut", "хРень", PathOut, Len(PathOut), FullNameIni)
        MsgBox(PathOut)
        GetPrivateProfileString("General", "PathOut", "Что это", PathInput, Len(PathOut), FullNameIni)
        MsgBox(PathInput)
    End Function

Результат: два сообщения "хРень" и "Что это"
Файл C:\FU.ini создался нормально
[General]
PathInput=PathInput
PathOut=PathOut+PathOut+PathOut+PathOut
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2011, 08:13
    #37229968
ё
ё
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
Alex DarkВот упростил до одной функции
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
    Public Function SaveFileIni() As Boolean
    Dim PathOut As String
    Dim PathInput As String

        FullNameIni = "C:\FU.ini"
        PathInput = Space( 100 )
        PathOut = Space( 100 )

        Call WritePrivateProfileString("General", "PathInput", "PathInput", FullNameIni)
        Call WritePrivateProfileString("General", "PathOut", "PathOut+PathOut+PathOut+PathOut", FullNameIni)


        Call GetPrivateProfileString("General", "PathOut", "хРень", PathOut, Len(PathOut), FullNameIni)
        MsgBox(PathOut)
        Call GetPrivateProfileString("General", "PathInput", "Что это", PathInput, Len(PathOut), FullNameIni)
        MsgBox(PathInput)
    End Function

Результат: два сообщения "хРень" и "Что это"
Файл C:\FU.ini создался нормально
[General]
PathInput=PathInput
PathOut=PathOut+PathOut+PathOut+PathOut
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2011, 18:31
    #37232559
DUDALS
DUDALS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с ini
lilo12,

Посмотри на http://vbrussian.com - поиск - примеры - "Класс для работы с INI файлами"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с ini / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 473ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158766]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 345ms
total:  473ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]