오홍~~ ^^
근데 MultiLine Strings 의 경우 자동으로 생기는 indent 의 앞 공백은 어떻게 처리될까? ^^;

 

 

New Language Features in Visual Basic 14

 

행복한 고수되셔요~~

^^

 

woojja ))*

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

반응형

간만에 왔군요... ㅋㅋ

요즘 몇가지 일을 한꺼번에 하느라... 바쁘군요...

8월까지는 꼼짝마가 될 듯합니다.

그래도 틈틈히 할 건 해야겠기에... 또 무언가를 손에 들었습니다. ㅡㅡ'

 

C# 코드를 보다가 VB 로 코드를 바꾸는데 턱 하니 무언가에 부딪쳤습니다.

여러분들께는 기초적인 내용이겠지만... ㅋㅋㅋ

 

한참 찾았네요...

 

코드는 이렇습니다.


            var genres = new List<Genre>
            {
                new Genre { Name = "Rock" },
                new Genre { Name = "Jazz" },
                new Genre { Name = "Metal" },
                new Genre { Name = "Alternative" },
                new Genre { Name = "Disco" },
                new Genre { Name = "Blues" },
                new Genre { Name = "Latin" },
                new Genre { Name = "Reggae" },
                new Genre { Name = "Pop" },
                new Genre { Name = "Classical" }
            };

 

이걸 vb.net 코드로 ㅋㅋㅋ

어떤 분의 목소리가 들리는 듯 합니다.

이럴 거 뭐하러 vb.net으로 하냐고...

C# 으로 하라고... ㅋㅋ

하지만 그래도 가봅니다. ㅋㅋㅋ

 

다음은 이렇게 변환 합니다.

 

Dim genres1 As New List(Of Genre) From {
                New Genre With {.Name = "Rock"},
                New Genre With {.Name = "Jazz"},
                New Genre With {.Name = "Metal"},
                New Genre With {.Name = "Alternative"},
                New Genre With {.Name = "Disco"},
                New Genre With {.Name = "Blues"},
                New Genre With {.Name = "Latin"},
                New Genre With {.Name = "Reggae"},
                New Genre With {.Name = "Pop"},
                New Genre With {.Name = "Classical"}
                }

 

또는

 

            Dim genres As New List(Of Genre) From {
                New Genre("Rock"),
                New Genre("Jazz"),
                New Genre("Metal"),
                New Genre("Alternative"),
                New Genre("Disco"),
                New Genre("Blues"),
                New Genre("Latin"),
                New Genre("Reggae"),
                New Genre("Pop"),
                New Genre("Classical")
                }

 

요렇게요... ㅋㅋㅋ

두번째 코드는 parameter 가 있는 initializer 가 있어야 하는 거고요.

 

핵심은 From With 에 있습니다.

 

머리 나쁜 제가 또 까먹을 듯 하여 올려봅니다.

 

그럼 행복한 고수되십시요...

 

woojja ))*

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

반응형

Environment.getEnvironmentVariable 에 관한 내용입니다.


strRetVal = System.Environment.getEnvironmentVariable(strEnvVar)


  • ALLUSERSPROFILE=C:\ProgramData
  • APPDATA=C:\Users\user\AppData\Roaming
  • HOMEPATH=\Users\user
  • LOCALAPPDATA=C:\Users\user\AppData\Local
  • PROGRAMDATA=C:\ProgramData
  • PUBLIC=C:\Users\Public
  • TEMP=C:\Users\user\AppData\Local\Temp
  • TMP=C:\Users\user\AppData\Local\Temp
  • USERPROFILE=C:\Users\user


  • 이 곳을 참고했습니다.

    행복한 고수되십시요...


    woojja ))*
    \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    반응형
    오늘은 지난 소스를 보던 중 괜찮은 부분이 눈에 띄어 또 써먹을 곳이 있지 않을까 하여 Posting 해 봅니다.
    인터넷 어디선가 Copy 해온 소스인 것 같기도하고... (제가 만들었을리가... ^^;)
    다른 곳에서 유사한 소스를 분이 계시다면... 알려주셔요... Link 를 걸도록 하겠습니다.

    이 글을 보시는 분들께서도 필요하신 분이 있지 않을까 하는... ^^

        1 

        2     Private Function GetValueString(ByVal obj As Object) As String

        3         If (IsDBNull(obj)) Then Return "NULL"

        4 

        5         Select Case obj.GetType.FullName

        6 

        7             Case "System.Boolean"

        8                 If (obj = True) Then

        9                     Return "True"

       10                 Else

       11                     Return "False"

       12                 End If

       13 

       14             Case "System.String"

       15                 Dim str As String = obj

       16                 Return "N'" + str.Replace("'", "''") + "'"

       17 

       18             Case "System.DateTime"

       19                 Return "'" + obj.ToString() + "'"

       20 

       21             Case "System.Drawing.Image"

       22                 Return "NULL"

       23 

       24             Case "System.Drawing.Bitmap"

       25                 Return "NULL"

       26 

       27             Case "System.Byte[]"

       28                 Return "0x" + GetHexString(obj)

       29 

       30             Case Else

       31                 Return obj.ToString()

       32 

       33         End Select

       34     End Function

       35 

       36     Private Function GetHexString(ByRef bytes() As Byte) As String

       37         Dim sb As New System.Text.StringBuilder

       38         Dim b As Byte

       39         Dim i As Integer = 0

       40 

       41         For Each b In bytes

       42             i += 1

       43             sb.Append(b.ToString("X2"))

       44             If i > 10 Then

       45                 Return sb.ToString()

       46             End If

       47         Next

       48 

       49         Return sb.ToString()

       50     End Function



    행복한 고수되셔요...


    woojja ))*
    \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    반응형

    + Recent posts