Вопросы Теги

ms access replace function Upper Lower letter mess

Используйте обработчики событий, чтобы сделать крючки в нескольких сценариях выхода: 

var process = Process.Start("program.exe");
AppDomain.CurrentDomain.DomainUnload += (s, e) => { process.Kill(); process.WaitForExit(); };
AppDomain.CurrentDomain.ProcessExit += (s, e) => { process.Kill(); process.WaitForExit(); };
AppDomain.CurrentDomain.UnhandledException += (s, e) => { process.Kill(); process.WaitForExit(); };
1
задан AlexNero 13 July 2018 в 15:17
поделиться

1 ответ

Replace() с Compare:=vbBinaryCompare делает различать буквы нижнего и верхнего регистра. 

Sub TestReplace()

    Dim strx As String

    strx = "Alex Nero - ID12 - Age12 - no more data - Code:A5f7HMnbwi34"
    Debug.Print " In: " & strx

    strx = Replace(strx, "a", "μ", , , vbBinaryCompare)
    strx = Replace(strx, "A", "Μ", , , vbBinaryCompare)
    strx = Replace(strx, "b", "ν", , , vbBinaryCompare)
    strx = Replace(strx, "B", "Ν", , , vbBinaryCompare)

    Debug.Print "Out: " & strx

End Sub

Вывод с подсветкой при различной замене A и a: 

 In: Alex Nero - ID12 - Age12 - no more data - Code:A5f7HMnbwi34
Out: Μlex Nero - ID12 - Μge12 - no more dμtμ - Code:Μ5f7HMnνwi34
     ^^^^^                                         ^^^^^
1
ответ дан Andre 17 August 2018 в 12:32
поделиться
Другие вопросы по тегам:

Похожие вопросы: