Как заменить, если символ повторяется больше, чем пороговое значение с нулевым или "" в vbs?

Question

Const ForReading = 1 
Const ForWriting = 2 
Set fso = CreateObject("Scripting.FileSystemObject") 
strSource = "C:\Users\Desktop\test.csv" 
Set File = fso.OpenTextFile(strSource, ForReading) 
strText = File.ReadAll 
File.Close 
strNewText = Replace(strText,",","|") 
Set File = fso.OpenTextFile(strSource, ForWriting, True) 
File.WriteLine strNewText 
File.Close 

Это код Im используя и результат я получаю: хххх | гггг | ZZZZZ ||||||||||||||||||||| Характер трубы '|' должен быть заменен на «null» или «если он повторяется более пяти раз, и я попытался использовать функции отделки, замены и mid, но не смог получить решение. Спасибо

Answer 1

Вы пытаетесь ограничить "|" до 5 последовательных записей? Там может быть симпатичнее способом, но это будет работать

Do While InStr(1, strNewText, "||||||") > 0 
    strNewText = Replace(strNewText, "||||||", "|||||") 
Loop 

Answer 2

Вы можете использовать следующие regular expression:

\|{5,} 

следующим образом:

Const ForReading = 1 
Const ForWriting = 2 
Set fso = CreateObject("Scripting.FileSystemObject") 
path = "C:\Users\Desktop\test.csv" 
Set file = fso.OpenTextFile(path, ForReading) 
strText = file.ReadAll 
file.Close 

Set re = CreateObject("VBScript.RegExp") 
re.Global = True 
re.Pattern = "\|{5,}" 
strNewText = re.Replace(strText, "") 

Set file = fso.OpenTextFile(strSource, ForWriting, True) 
file.WriteLine strNewText 
file.Close 

NB. Рассмотрите возможность использования Option Explicit в начале вашего скрипта; это избавит вас от ошибочных и запутанных переменных.