Баг при чтении INI файлов.

@lomix · Регистрация: 07.08.2007

Студворк — интернет-сервис помощи студентам

Скачал я класс с sharig.webzone.ru и не могу понять что за ошибка.
т.е. самый простой код:
loginto = m_cIni.GetValue('formlogin', 'login')
If loginto = 'lomix' Then MsgBox 'ok login' Else MsgBox 'False'

и не работает - результат False хотя всё правильно.
исходя из этой строчки 'strTmp = String$(100, 0)' в модуле можно предороложить, что остальные символы = 0, я чтение файлов не силён -
есть предложения?

@lomix · 10.05.2008, 12:45 **[ТС]**

Может кто-н может посоветовать другой класс, который работает

11.05.2008, 14:14

) ....sam dolgo muchilsy ... koroche nameknu

). dly primera sam zapichi v ini fail dopustim 'KILL' - bez kovychek sure... prochitay ego API .. i posmori na dlenu (esli xochech sravnit' to v konez togo che xochech sravnit' s strokoy iz ini pichi & chr(0)

) uspexov

@borm · 11.05.2008, 14:24

нафига тебе классы? делай сам:

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

lRet = GetPrivateProfileString(Section, Key, Default, sValue, nSize, Appname)

@lomix · 17.05.2008, 13:21 **[ТС]**

В случае с цифрами можно поступить проще: val(massiv)
no esli cifra na4inaetsja no '0' to pjat' zapara

@Grankin_Denis · 19.05.2008, 14:25

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

Function ReadIniFiles(Section$, KeyName$) As String
Dim lpAppName$, lpKeyName$, lpDefault$, lpReturnString$, lpFileName$
Dim Size%, Valid%, Path$, Succ%
lpFileName$ = App.Path & 'setting.ini'
lpDefault$ = ''
lpReturnString$ = Space$(128)
Size% = Len(lpReturnString$)
Valid% = GetPrivateProfileString(Section$, KeyName$, lpDefault$, lpReturnString$, Size%, lpFileName$)
ReadIniFiles$ = Left$(lpReturnString$, Valid%)
End Function

@vsdad · 21.05.2008, 03:32

Пример чтения и записи в файл .ini
http://vsdad.pisem.net/sours_vb/files/ini_test.zip

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@lomix 0 / 0 / 0 Регистрация: 07.08.2007 Сообщений: 78

	Баг при чтении INI файлов. 07.05.2008, 16:28. Показов 1251. Ответов 6 Метки нет (Все метки) Скачал я класс с sharig.webzone.ru и не могу понять что за ошибка. т.е. самый простой код: loginto = m_cIni.GetValue('formlogin', 'login') If loginto = 'lomix' Then MsgBox 'ok login' Else MsgBox 'False' и не работает - результат False хотя всё правильно. исходя из этой строчки 'strTmp = String$(100, 0)' в модуле можно предороложить, что остальные символы = 0, я чтение файлов не силён - есть предложения? 0

@lomix 0 / 0 / 0 Регистрация: 07.08.2007 Сообщений: 78
	10.05.2008, 12:45 [ТС]
	Может кто-н может посоветовать другой класс, который работает 0

samson
	11.05.2008, 14:14
	) ....sam dolgo muchilsy ... koroche nameknu ). dly primera sam zapichi v ini fail dopustim 'KILL' - bez kovychek sure... prochitay ego API .. i posmori na dlenu (esli xochech sravnit' to v konez togo che xochech sravnit' s strokoy iz ini pichi & chr(0) ) uspexov

@borm 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 458
	11.05.2008, 14:24
	нафига тебе классы? делай сам: 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 lRet = GetPrivateProfileString(Section, Key, Default, sValue, nSize, Appname) 0

@lomix 0 / 0 / 0 Регистрация: 07.08.2007 Сообщений: 78
	17.05.2008, 13:21 [ТС]
	В случае с цифрами можно поступить проще: val(massiv) no esli cifra na4inaetsja no '0' to pjat' zapara 0

@Grankin_Denis 1 / 1 / 0 Регистрация: 06.05.2008 Сообщений: 68
	19.05.2008, 14:25
	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 Function ReadIniFiles(Section$, KeyName$) As String Dim lpAppName$, lpKeyName$, lpDefault$, lpReturnString$, lpFileName$ Dim Size%, Valid%, Path$, Succ% lpFileName$ = App.Path & 'setting.ini' lpDefault$ = '' lpReturnString$ = Space$(128) Size% = Len(lpReturnString$) Valid% = GetPrivateProfileString(Section$, KeyName$, lpDefault$, lpReturnString$, Size%, lpFileName$) ReadIniFiles$ = Left$(lpReturnString$, Valid%) End Function 0

@vsdad 0 / 0 / 0 Регистрация: 21.05.2008 Сообщений: 5
	21.05.2008, 03:32
	Пример чтения и записи в файл .ini http://vsdad.pisem.net/sours_vb/files/ini_test.zip 0