Question

我正在建立一个信息收集计划，一些计算机就像我的堂兄一样在希腊，所以名字是希腊语。我跑这个

 Dim Name As String = Environment.UserName.ToString

我得到“Μητσος”这是希腊字母。知道我需要转换这个字符串的吗？我自己建立了这个功能，但似乎没有用。

Public Function ConvertToEnglish(ByVal Namee As String)
    Dim GreekName As String = Namee.ToString
    If GreekName.Contains("α") Or GreekName.Contains("Α") Then
        GreekName.Replace("α", "A")
        GreekName.Replace("Α", "A")
    End If
    If GreekName.Contains("β") Or GreekName.Contains("Β") Then
        GreekName.Replace("β", "B")
        GreekName.Replace("Β", "B")
    End If

    If GreekName.Contains("γ") Or GreekName.Contains("Γ") Then
        GreekName.Replace("γ", "G")
        GreekName.Replace("Γ", "G")
    End If

    If GreekName.Contains("δ") Or GreekName.Contains("Δ") Then
        GreekName.Replace("δ", "D")
        GreekName.Replace("Δ", "D")
    End If
    If GreekName.Contains("ε") Or GreekName.Contains("Ε") Then
        GreekName.Replace("ε", "E")
        GreekName.Replace("Ε", "E")
    End If
    If GreekName.Contains("ζ") Or GreekName.Contains("Ζ") Then
        GreekName.Replace("ζ", "Z")
        GreekName.Replace("Ζ", "Z")
    End If
    If GreekName.Contains("η") Or GreekName.Contains("Η") Then
        GreekName.Replace("η", "I")
        GreekName.Replace("Η", "I")
    End If
    If GreekName.Contains("θ") Or GreekName.Contains("Θ") Then
        GreekName.Replace("θ", "TH")
        GreekName.Replace("Θ", "TH")
    End If
    If GreekName.Contains("ι") Or GreekName.Contains("Ι") Then
        GreekName.Replace("ι", "I")
        GreekName.Replace("Ι", "I")
    End If
    If GreekName.Contains("κ") Or GreekName.Contains("Κ") Then
        GreekName.Replace("κ", "K")
        GreekName.Replace("Κ", "K")
    End If
    If GreekName.Contains("λ") Or GreekName.Contains("Λ") Then
        GreekName.Replace("λ", "L")
        GreekName.Replace("Λ", "L")
    End If
    If GreekName.Contains("μ") Or GreekName.Contains("Μ") Then
        GreekName.Replace("μ", "M")
        GreekName.Replace("Μ", "M")
    End If
    If GreekName.Contains("ν") Or GreekName.Contains("Ν") Then
        GreekName.Replace("ν", "N")
        GreekName.Replace("Ν", "N")
    End If
    If GreekName.Contains("ξ") Or GreekName.Contains("Ξ") Then
        GreekName.Replace("ξ", "KS")
        GreekName.Replace("Ξ", "KS")
    End If
    If GreekName.Contains("ο") Or GreekName.Contains("Ο") Then
        GreekName.Replace("ο", "o")
        GreekName.Replace("Ο", "o")
    End If
    If GreekName.Contains("π") Or GreekName.Contains("Π") Then
        GreekName.Replace("π", "P")
        GreekName.Replace("Π", "P")
    End If
    If GreekName.Contains("ρ") Or GreekName.Contains("Ρ") Then
        GreekName.Replace("ρ", "R")
        GreekName.Replace("Ρ", "R")
    End If
    If GreekName.Contains("σ") Or GreekName.Contains("Σ") Then
        GreekName.Replace("σ", "S")
        GreekName.Replace("Σ", "S")
    End If
    If GreekName.Contains("τ") Or GreekName.Contains("Τ") Then
        GreekName.Replace("τ", "T")
        GreekName.Replace("Τ", "T")
    End If
    If GreekName.Contains("υ") Or GreekName.Contains("Υ") Then
        GreekName.Replace("υ", "Y")
        GreekName.Replace("Υ", "Y")
    End If
    If GreekName.Contains("φ") Or GreekName.Contains("Φ") Then
        GreekName.Replace("φ", "F")
        GreekName.Replace("Φ", "F")
    End If
    If GreekName.Contains("χ") Or GreekName.Contains("Χ") Then
        GreekName.Replace("χ", "X")
        GreekName.Replace("Χ", "X")
    End If
    If GreekName.Contains("ψ") Or GreekName.Contains("Ψ") Then
        GreekName.Replace("ψ", "PS")
        GreekName.Replace("Ψ", "PS")
    End If
    If GreekName.Contains("ω") Or GreekName.Contains("Ω") Then
        GreekName.Replace("ω", "W")
        GreekName.Replace("Ω", "W")
    End If


    Return GreekName.ToString
End Function

Answer 1

替换不是＆＃34;就地＆＃34;替换，但返回一个值。您必须将返回值分配给变量。

GreekName = GreekName.Replace("ω", "W")

请注意，您不必事先测试替换字符的存在。如果找不到该角色，它就什么都不做。

Vb.Net将希腊语字符串转换为英语

1 个答案: