Серый форум — VBScript: Замена символов в строке

Re: VBScript: Замена символов в строке

null@example.com (d_alexei) — Wed, 04 Sep 2013 12:37:49 +0000

все сработало отлично, видимо я что-то опять наворотил в коде !!!!

Re: VBScript: Замена символов в строке

null@example.com (alexii) — Wed, 04 Sep 2013 12:29:58 +0000

Спасибо, но не совсем то.
Мне надо заменить все email на пустое значение, т.е. на ",,".

Этого не было в техзадании. Было же приведено — конкретная строка.

Сейчас читаю регулярные выражения

Всё верно. Пример шаблона привёл коллега Rumata.

Option Explicit

Const ForWriting = 2

Dim strContent
Dim objRegExp


Set objRegExp = WScript.CreateObject("VBScript.RegExp")

With objRegExp
    .Pattern = ",[^,]+@[^,]+,"
    .Global  = True
End With

With WScript.CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile("c:\file.csv")
        strContent = .ReadAll()
        .Close
    End With
    
    With .OpenTextFile("c:\file.log", ForWriting, True)
        .WriteLine objRegExp.Replace(strContent, ",,")
        .Close
    End With
End With

Set objRegExp = Nothing

WScript.Quit 0

Re: VBScript: Замена символов в строке

null@example.com (d_alexei) — Wed, 04 Sep 2013 12:29:03 +0000

Спасибо, похоже то, что я и искал. Только теперь еще одна проблемка, не могу сообразить почему не пишет в файл замену. Код такой :

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set objRegExp = CreateObject("VBScript.RegExp")
Set objStream = objFSO.OpenTextFile("c:\file.csv")
Set Read_log = objFSO.OpenTextFile("c:\file.log", 2, True) 
objRegExp.Global = True
objRegExp.Pattern = "[^,]+@[^,]+"
Do While objStream.AtEndOfStream <> True
strLine = objStream.ReadLine

    WScript.Echo  "strLine - " & strLine
    v1 = InStr (1,strLine,"@") 
    If v1 >0 Then 
    Set objMatches = objRegExp.Execute(strLine)
    strNewText = Replace(strLine, objRegExp.Pattern, "", 1, 1)
    Read_log.WriteLine strNewText
    WScript.Echo "objMatches.Count = " & objMatches.Count
    End if

Loop
objStream.Close

Re: VBScript: Замена символов в строке

null@example.com (Rumata) — Wed, 04 Sep 2013 12:04:40 +0000

d_alexei пишет:

Сейчас читаю регулярные выражения, но тоже не совсем то, или я не умею их использовать. Все, что по шаблону @mail ищется и заменяется легко, а вот что стоит до @ не видится.

Вам нужно в строке "что-то-в-начале,нечто@еще-нечто,что-то-в-конце" найтит подстроку вида "нечто@еще-нечто" и удалить ее. Если Вы посмотрите внимательно, то увидите, что удаляемая часть находится между запятыми и идентифицируется наличием "собачки" @. Вот и ищите - "не-запятые-собачка-не-запятые":

[^,]+@[^,]+

Re: VBScript: Замена символов в строке

null@example.com (d_alexei) — Wed, 04 Sep 2013 11:32:13 +0000

Спасибо, но не совсем то.
Мне надо заменить все email на пустое значение, т.е. на ",,". Т.е. все, что находится между запятыми и если содержит @ , то надо убрать. Сейчас читаю регулярные выражения, но тоже не совсем то, или я не умею их использовать. Все, что по шаблону @mail ищется и заменяется легко, а вот что стоит до @ не видится.

Re: VBScript: Замена символов в строке

null@example.com (alexii) — Wed, 04 Sep 2013 10:25:35 +0000

Option Explicit

Const ForWriting = 2

With WScript.CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile("c:\file.csv")
        strContent = .ReadAll()
        .Close
    End With
    
    With .OpenTextFile("c:\file.log", ForWriting, True)
        .WriteLine Replace(strContent, "1@mail", "")
        .Close
    End With
End With

WScript.Quit 0

Не проверялось.

VBScript: Замена символов в строке

null@example.com (d_alexei) — Wed, 04 Sep 2013 09:15:54 +0000

Понимаю, что тема много раз описана, но не нашел ответ на свой вопрос :
есть csv файл? в нем надо найти в строках все ",1@mail," и заменить на ",,"
Пытаюсь сделать так :

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set objStream = objFSO.OpenTextFile("c:\file.csv")
Set Read_log = objFSO.OpenTextFile("c:\file.log", 2, True) 
Do While objStream.AtEndOfStream <> True
strLine = objStream.ReadLine
    v1 = InStr (1,strLine,"@") 
    If v1 >0 Then 
    Read_log.WriteLine Replace(strLine, "@", "", 1, 1)
    End if
Loop
objStream.Close

Сам символ @ он ищет и меняет, но мне надо все, что находится между запятыми стереть и поставить просто ,,

Подскажите плиз!