Замена несколько недопустимых символов в имени листа

Question

Я пишу довольно большой макрос

• который заканчивается путем сохранения рабочей книги с именем, которое пользователь введенному ранее.
• Я использую заголовок для этого, поэтому мне нужно снять любые зарезервированные символы, которые будут вызывать ошибки файловой системы (/\*|?:<>").

Я хотел бы избежать необходимости использовать большое количество Replace() заявлений, так есть ли способ заменить несколько символов с подчеркиванием в одном заявлении - что-то больше похоже на regexp?

Спасибо всем!

Answer 1

К счастью, вы обнаружите, что большинство из этих символов являются недействительными уже в качестве листа символов имени, т.е. *?[] и т.д.

Но как вы уже сказали, используйте regexp :)

Что-то вроде ниже для возврата True для действительных строк, False для недействительных.

Я добавил ваши пункты выше, избегая специальных символов по мере необходимости.

[Обновлено: добавлена ​​замена Function]

Sub TestCleanNames() 
    Dim StrArr() 
    Dim StrTst 
    StrArr = Array("Am i ok", "Sheet||a", "audited??", "Sheet1") 
    For Each StrTst In StrArr 
     MsgBox StrTst & " = " & ValidSheetName(CStr(StrTst)) & vbNewLine & CleanSheetName(CStr(StrTst)) 
    Next 
End Sub 

действует функция имя

Function ValidSheetName(strIn As String) As Boolean 
    Dim objRegex As Object 
    Set objRegex = CreateObject("vbscript.regexp") 
    objRegex.Pattern = "[\<\>\*\\\/\?|]" 
    ValidSheetName = Not objRegex.test(strIn) 
End Function 

чистая функция

Function CleanSheetName(strIn As String) As String 
    Dim objRegex As Object 
    Set objRegex = CreateObject("vbscript.regexp") 
    With objRegex 
     .Global = True 
     .Pattern = "[\<\>\*\\\/\?|]" 
     CleanSheetName = .Replace(strIn, "_") 
    End With 
End Function 

Answer 2

Вы посмотрели clean()?

В качестве альтернативы, немного хаотичным, но я полагаю, вы могли бы использовать 'substitute'

Substitute(text, old_text, new_text, nth_appearance)