C# と VB.NET の質問掲示板

例
String f3(String s){
 StringBuilder sb = new StringBuilder();
 for(int i=0; i<s.length(); i++){
  char c = s.charAt(i);
  
  if('a' <= c && c <= 'z'){
   c = (char)('A' + (c - 'a'));
  }
  
  else if('A' <= c && c <= 'Z'){
   c = (char)('a' + (c - 'A'));
  }
  
  if(i != 0){sb.append(".");}
  sb.append(c);
  
 }
 return sb.toString();
}



上のはヒントです
以下の仕様になるように
・大文字は小文字に、数字は'0','1','2'...を'9','8','7'...と反転させる。
・ただし、'#'以降の文字は変換しない。
・例として "Abc012_59F_#012Gh"を渡した場合の戻り値は "abc987_40f_#012Gh"となる。
 
String f3(String s){
 StringBuilder sb = new StringBuilder();
 
 -------ここから-------
 
 
 -------ここまで-------
 
 for(int i=0; i<s.length(); i++){
  char c = s.charAt(i);
  
 -------ここから-------
 
 
 -------ここまで-------
 
 }
 return sb.toString();
}
わかりますか？

暇つぶしに書いてみたけど、もうちょっとこう、エレガントにならないものか…うーむ。

    Private through As Boolean = False

    Public Function Convert(ByVal input As String) As String
        Return New String(New List(Of Char)(input).ConvertAll(Of Char)(AddressOf convertChar).ToArray())
    End Function

    Private Function convertChar(ByVal c As Char) As Char
        If through Then Return c

        Select Case c
            Case "0"c To "9"c
                Return CStr(9 - Val(c))(0)
            Case "#"c
                through = True
                Return c
            Case Else
                Return CStr(c).ToLower()(0)
        End Select
    End Function

# VB.NET で書き直し

■No36957 (倉田　有大 さん) に返信

Yahoo知恵袋に回答貼ってありました。（多分質問してるのも同じ人なんだろうな）

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1127100811

ifの入れ子よりはCASE文でまとめてるほうが好み。

悪ノリ。

宿題だか課題だか知らんけども、このまま提出したらおもしろいことになりそう♪

public static string f3(string s) {
  return s.Length == 0 || s[0] == '#' ? s : (new string("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".IndexOf(s[0]) < 0 ? s[0] : "9876543210abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"["0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".IndexOf(s[0])],1) + f3(s.Substring(1)));
}

> ちなみに、小文字は小文字のままでいいみたいだから、もう少しだけ短くできそう。

あらホント。78文字も短くなりましたわ。

class Program {

  public static string f3(string s) {
     return s.Length == 0 || s[0] == '#' ? s : (new string("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ".IndexOf(s[0]) < 0 ? s[0] : "9876543210abcdefghijklmnopqrstuvwxyz"["0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ".IndexOf(s[0])],1) + f3(s.Substring(1)));
  }
  
  public static void Main() {
    string input = "Abc012_59F_#012Gh";
    string output = f3(input);
    System.Console.WriteLine("[{0}]\n[{1}]",input,output);
  }
}

試しにVBAで書いてみましたが、短く出来ませんでした。
（IIfを使うために変換後の文字列の仕様がちと変則的になっています）

Option Explicit

Public Sub Test()
    Dim str_in      As String
    Dim str_out     As String
    
    str_in = "Abc012_59F_#012Gh"
    str_out = f3(str_in)
    Debug.Print str_in
    Debug.Print str_out
End Sub

Public Function f3(ByVal s As String) As String
    If s <> "" Then f3 = IIf(Left(s, 1) = "#", s, IIf(InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", Left(s, 1)) > 0, Mid(" 9876543210abcdefghijklmnopqrstuvwxyz", InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", Left(s, 1)) + 1, 1), Left(s, 1)) & f3(Mid(s, 2)))
End Function