[JFWRus] Добавить информацию в файл

Здравствуйте,

В челюстях есть функции для работы с файлами, но только с инишками. Для этого
можно использовать функции IniWriteInteger, IniWriteIntegerEx, IniWriteString,
IniWriteStringEx.

До свидания.

***
Это сообщение No4146
было разослано для 319 участников дискуссионного листа
[JFWRus] Re: Добавить информацию в файл

Привет, Cuthbert!

Вы писали 16 июня 2006 г., 6:42:58:

var
string s
InputBox ("enter text", "title", s)
IniWriteString ("section", "value", s, "c:\\temp\\mytext.txt")

Здравствуйте, Олег.

К сожалению, этот способ не катит. Переписывается весь файл целиком, а мне
бы желательно добавить в него всего одну строку.

XXX___-?O
All fled, all done
So lift me on the pyre.
The feast is over
And the lamps expire.
Всяких приятностей! flavour [собака] mlbox.ru

***
Это сообщение No4148
было разослано для 320 участников дискуссионного листа
[JFWRus] Re[2]: Добавить информацию в файл

Привет, Cuthbert!

Вы писали 18 июня 2006 г., 4:55:04:

Если, есть файл с таким именем, и если в нем есть указанная секция (секция -
текст в квадратных скобках), и есть параметр.
То файл не переписывается, а именно изменяется значение параметра, а если нет
файла то он создаётся.
А если нет параметра то он создаётся.

Здравствуйте, Олег.

Хорошо, приведу наглядный пример. Может тут можно придумать какое-нибудь
иное решение?

Имеется файл реестра следующего типа:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet
Settings]
"User Agent"="Mozilla/4.0 (compatible; MSIE 6.0; Win32)"
"IE5_UA_Backup_Flag"="5.0"
"NoNetAutodial"=dword:00000000
"MigrateProxy"=dword:00000001
"EmailName"="IEUser@"
"AutoConfigProxy"="wininet.dll"
"MimeExclusionListForCache"="multipart/mixed multipart/x-mixed-replace
multipart/x-byteranges "
"WarnOnPost"=hex:01,00,00,00
"UseSchannelDirectly"=hex:01,00,00,00
"EnableHttp1_1"=dword:00000001
"PrivacyAdvanced"=dword:00000000
"EnableNegotiate"=dword:00000001
"ProxyEnable"=dword:00000001
"SecureProtocols"=dword:00000028
"DisableCachingOfSSLPages"=dword:00000000
"WarnonBadCertRecving"=dword:00000001
"WarnonZoneCrossing"=dword:00000001
"WarnOnPostRedirect"=dword:00000001
"CertificateRevocation"=dword:00000000
"ProxyHttp1.1"=dword:00000000
"UrlEncoding"=dword:00000000
"PrivDiscUiShown"=dword:00000001
"EnableAutodial"=dword:00000000
"ProxyServer"="202.58.85.2:80"

Вот самую последнюю запись, параметр "proxyServer" мне и нужно оперативно
изменить, не влезая в текстовые редакторы возможно меньшим числом нажатий
клавиш.

XXX___-?O
All fled, all done
So lift me on the pyre.
The feast is over
And the lamps expire.
Всяких приятностей! flavour [собака] mlbox.ru

***
Это сообщение No4151
было разослано для 320 участников дискуссионного листа
[JFWRus] Re[4]: Добавить информацию в файл

Здравствуйте, Cuthbert.

Ну правы Олег и Сергей -- IniWriteString прекрасно с этим справляется (пример
см. ниже). Если же вы потом этот файл импортируете
в реестр, то можно напрямую менять реестр функцией
SetRegistryEntryString (1,

"Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings",

"ProxyServer",

proxy_ip);

которая, однако, как было общими усилиями установлено, гарантированно работает
в версиях 6.20 и 7.00.
Пример записи адреса в файл (необходимо следить за правильностью имени секции
и параметра, иначе у вас просто появится новая
секция или параметр):

var

string keyname,

string section,

string proxy_ip

if InputBox ("Укажите ip-адрес proxy:", "Настройка proxy", proxy_ip) then

let section ="HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet
Settings"

let keyname ="\"ProxyServer\""

IniWriteString (section, keyname, proxy_ip, "d:\\bb\\test.reg")

endif

...

Успехов . Анатолий.

***
Это сообщение No4153
было разослано для 320 участников дискуссионного листа
[JFWRus] Re[5]: Добавить информацию в файл