将代码从C＃转换为Vb.net [英] Convert A Code from C# to Vb.net

问题描述

大家好。

我无法将此代码转换为vb.net。

这是我的功能：

Hi everyone.
I can not convert this code to vb.net.
This is my function :

public static string StringToBinary(string data)
{
 StringBuilder sb = new StringBuilder();
 
 foreach (char c in data.ToCharArray())
 {
 sb.Append(Convert.ToString(c, 2).PadLeft(8,'0'));
 }
 return sb.ToString();
}

但是我无法转换这部分：

But I Can't Convert this part :

sb.Append(Convert.ToString(c, 2).PadLeft(8,'0'));

谢谢。

Thank you.

推荐答案

尝试：

Try:

Public Shared Function StringToBinary(data As String) As String
    Dim sb As New StringBuilder()

    For Each c As Char In data.ToCharArray()
        sb.Append(Convert.ToString(c, 2).PadLeft(8, "0"C))
    Next
    Return sb.ToString()
End Function

如果你看一下，有在线工具可以做到这一点：

http://www.developerfusion.com/tools/convert/csharp-to-vb/ [ ^ ]

和

http://converter.telerik.com/ [ ^ ]

例如。我使用了Telrik转换器。

If you have a look, there are online tools to do this:
http://www.developerfusion.com/tools/convert/csharp-to-vb/[^]
And
http://converter.telerik.com/[^]
For example. I used the Telrik convert for this.

你可以使用这个代码....

You can use this code ....

Public Shared Function StringToBinary(ByVal data As String) As String
 Dim sb As StringBuilder =  New StringBuilder()

 Dim c As Char
 For Each c In data.ToCharArray()
 sb.Append(Convert.ToString(c, 2).PadLeft(8,"0"c))
 Next
 Return sb.ToString()
End Function

这篇关于将代码从C＃转换为Vb.net的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！