VPF::редактирование файла - Форум программистов

quasi

Дата 6.12.2007, 03:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0

Подскажите, не ругается, но в файлике поле произведенных действий остаются сивмолы "жь" и все=(

Код

    Set WshShell = CreateObject("Wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set REObj = CreateObject("VBScript.RegExp")
    profile=WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
    user=WshShell.ExpandEnvironmentStrings("%USERNAME%")
    REObj.IgnoreCase = True
    REObj.Global = False
    REObj.Pattern = "\n\s*USER_NAME=\w*"
    MyFileText = vbCrLf & FSO.OpenTextFile("" & profile &"\WINDOWS\cfg.INI", 1, False).ReadAll
    If REObj.Test(MyFileText) Then
        Set REMObj = REObj.Execute(MyFileText).Item(0)
        MyFileText = Left(MyFileText, REMObj.FirstIndex) & vbCrLf & USER_NAME=" & user & " & Mid(MyFileText, 

REMObj.FirstIndex + REMObj.Length + 1)
        FSO.OpenTextFile("" & profile &"\WINDOWS\cfg.INI", 2, False).Write Mid(MyFileText, 3)
    End If

Akina

Дата 6.12.2007, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Ну так отлаживайте. Разберите длинные строки на составляющие, собирайте строки в отдельных переменных, отслеживайте значения через echo - словом, ищите ту точку, где результат не соответствует ожиданию.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »