0

こんにちは私は、最初の文字が小文字になり、残りの単語が大文字になるように、このコードを逆にする方法があるのだろうかと思っていました。

Dim s As String = "the quick brown fox jumps over the lazy dog"
Dim s2 As String = StrConv(s, VbStrConv.ProperCase)
MessageBox.Show(s2)

.netFrameworks3.5を使用しています

これが答えです！ありがとうティム！

Dim s As String = TextBox1.Text
Dim s2 = String.Join(" ", s.Split() .Select(Function(w)UppercaseAllButFirst(w)).ToArray())
TextBox2.Text = s2
4

2 に答える 2

1

新しい関数を作成できます。

Public Shared Function UppercaseAllButFirst(s As String) As String
    ' check for empty string
    If (String.IsNullOrEmpty(s)) Then
        Return String.Empty
    End If
    Return Char.ToLower(s(0)) & s.Substring(1).ToUpper()
End Function

次に、次のように使用できます。

Dim s2 = String.Join(" ", s.Split().Select(Function(w) UppercaseAllButFirst(w)))

.NET 3.5、String.Join配列が必要です：

String.Join(" ", s.Split().Select(Function(w) UppercaseAllButFirst(w)).ToArray())
于 2012-10-30T09:38:28.017 に答える
1

あなたはこのようにそれを行うことができます：

dim s1 as string="the quick brown fox jumps over the lazy dog"
dim s2 as string= _ 
     string.Join(" ",s1.Split(" ").Select (function(s) _
     s.Substring(0,1).ToLower()+s.Substring(1).ToUpper()).ToArray())

これにより、次の出力が得られます。

tHE qUICK bROWN fOX jUMPS oVER tHE lAZY dOG
于 2012-10-30T09:40:08.190 に答える