Серый форум — VBS:как сохранить данные с txt файла?

Re: VBS:как сохранить данные с txt файла?

null@example.com (alexii) — Mon, 24 Nov 2014 14:22:03 +0000

DarkJoker1992, я никак не смогу помочь Вам, пока Вы будете продолжать отделываться общими фразами.

Re: VBS:как сохранить данные с txt файла?

null@example.com (DarkJoker1992) — Mon, 24 Nov 2014 13:50:05 +0000

О_о всмысле, есть начало кода есть определённая строка до которой мне нужен код, остальное не нужно.

Re: VBS:как сохранить данные с txt файла?

null@example.com (alexii) — Mon, 24 Nov 2014 13:38:38 +0000

DarkJoker1992 пишет:

нужную мне часть

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

Re: VBS:как сохранить данные с txt файла?

null@example.com (DarkJoker1992) — Mon, 24 Nov 2014 09:29:26 +0000

alexii пишет:

DarkJoker1992, великолепно. Теперь дело осталось за малым:
2. Указали принципы — в деталях — по которым будет происходить поиск и отбор информации.
рассказать-таки — по каким принципам мы выбираем один определённый «npsa=4000213» среди прочих.

имеется сервер где расположены файлы и html файл, который в определённое время,генерирует данные и меняет часть кода, мне нужно забирать нужную мне часть.

Re: VBS:как сохранить данные с txt файла?

null@example.com (alexii) — Mon, 24 Nov 2014 01:17:05 +0000

DarkJoker1992, великолепно. Теперь дело осталось за малым:

2. Указали принципы — в деталях — по которым будет происходить поиск и отбор информации.

рассказать-таки — по каким принципам мы выбираем один определённый «npsa=4000213» среди прочих.

Re: VBS:как сохранить данные с txt файла?

null@example.com (DarkJoker1992) — Sun, 23 Nov 2014 22:39:54 +0000

alexii пишет:

Чтобы «подсказать код» надо, чтобы:
1. Вы упаковали в архив и выложили на RGhost образец реального файла.
2. Указали принципы — в деталях — по которым будет происходить поиск и отбор информации.
Пока мы вертимся всё вокруг да около непонятно чего.

реальный образец не могу показать, так как он служит для работы и абсолютно анонимный мы его купили.
Вот пример





npsa=4000213
-->
=============================================
дальше идёт код который мне не нужен и там тоже есть
npsa=4000213

Re: VBS:как сохранить данные с txt файла?

null@example.com (alexii) — Sun, 23 Nov 2014 22:09:15 +0000

Чтобы «подсказать код» надо, чтобы:

1. Вы упаковали в архив и выложили на RGhost образец реального файла.
2. Указали принципы — в деталях — по которым будет происходить поиск и отбор информации.

Пока мы вертимся всё вокруг да около непонятно чего.

Re: VBS:как сохранить данные с txt файла?

null@example.com (DarkJoker1992) — Sun, 23 Nov 2014 20:46:40 +0000

Извиняюсь ещё раз, подскажите пожалуйста код,для удаления определённых строк, а то в файле есть несколько окончаний 4000213 и он захватывает то что не нужно. хотелось бы сразу прописать в vbs что бы и удаляла.

Re: VBS:как сохранить данные с txt файла?

null@example.com (alexii) — Sun, 23 Nov 2014 16:42:24 +0000

Замените в приведённом мною выше коде «.Write strContent» на «.Write Replace(strContent, "@", "")».

Re: VBS:как сохранить данные с txt файла?

null@example.com (DarkJoker1992) — Sun, 23 Nov 2014 13:33:32 +0000

Подскажите пожалуйста, можно добавить удаление определённых символов из выходного файла? допустим удалить все @ символы в файле.
Спасибо большое за внимание.
этот код у меня ошибку выдаёт

 With CreateObject("Scripting.FileSystemObject") :
  .OpenTextFile("C:\index.htm", 2, True).Write Replace(.OpenTextFile("C:\code.txt",,,-1).ReadAll, "@", "") :
  End With  :

Re: VBS:как сохранить данные с txt файла?

null@example.com (DarkJoker1992) — Sun, 23 Nov 2014 11:37:58 +0000

Спасибо большое.

Re: VBS:как сохранить данные с txt файла?

null@example.com (alexii) — Sat, 22 Nov 2014 20:54:13 +0000

Option Explicit

Dim strSourceFile
Dim strDestFile

Dim strContent


strSourceFile = "E:\Песочница\0409\0001.txt"
strDestFile   = "E:\Песочница\0409\0002.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
    If .FileExists(strSourceFile) Then
        If .FolderExists(.GetParentFolderName(strDestFile)) Then
            With .OpenTextFile(strSourceFile)
                strContent = .ReadAll()
                .Close
            End With
            
            With WScript.CreateObject("VBScript.RegExp")
                .Pattern = ".*?([\s\S]*4000213).*"
                .IgnoreCase = True
                
                If .Test(strContent) Then
                    strContent = .Execute(strContent).Item(0).Submatches.Item(0)
                End If
            End With
            
            With .CreateTextFile(strDestFile, True)
                .Write strContent
                .Close
            End With
        Else
            WScript.Echo "Destination folder [" & .GetParentFolderName(strDestFile) & "] not exists."
            WScript.Quit 2
        End If
    Else
        WScript.Echo "Source file [" & strSourceFile & "] not found."
        WScript.Quit 1
    End If
End With

WScript.Quit 0

Если нужен не «жадный» поиск (например, не последний найдённый «4000213», а первый), используйте «.Pattern = ".*?([\s\S]*?4000213).*"».

VBS:как сохранить данные с txt файла?

null@example.com (DarkJoker1992) — Sat, 22 Nov 2014 18:35:01 +0000

Здравствуйте, подскажите как сохранить текст из стороннего файл начиная с заканчивая 4000213.
разумеется нужно что бы и 4000213 тоже были в out файле.
Спасибо за внимание.