今天折腾的一点心得

又折腾了一天,为了一个win server 2012的vhd下载地址搞了一整个白天,甚至于写了一个程序。又为了部署vhd版的win server弄了一晚上,先是磁盘空间不足,然后打算传到另一台电脑上,复制文件又各种蛋疼,一会儿速度为零,一会儿又卡住不动,最后直接卡在99%了。。。。各种无语啊。。。。

回首来一看,才发现自己走了一条弯路,本来下载地址就在地址栏里,就在dm的调用命令行里,却非得去搞内存,搞16进制;本来弄个iso挺简单,非要去弄个vhd。也就是说,本来很简单的事情变得很复杂,但这只是在我最后办成事情的情况下,才会这么说。就跟爱迪生发明灯泡(不知道是否可信)一个道理,两千多种材料,不去试验,你也不可能知道那种最好,但是当你真正找到那种材料之后,可能别人会说,不就这么一回事儿吗?诚然,要是一开始就试验对了固然很好,但是你却并不能确定剩下的1999种材料能不能做灯丝。如果我一开始就想到地址栏,那我也不会去写那个16进制转换,如果我一开始就用iso那我也不再会懂如何使用vhd。

所以总体来说,是积累了一个经验教训,当然从中也能学到很多。就好比你另辟蹊径,看到的,是一幅全新的风景。所以,也只有不断折腾,才能有所进步和提高。实践,才是检验真理的唯一标准.

HEXtoASCII——十六进制转ASCII程序

程序功能为将一串HEX转为ASCII,自动忽略其中的00(表示空)。

必须控件:TextBox1,TextBox2,Button1

源代码如下:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim HexNum, i As Single
        Dim aim As String
        Dim input, step1 As String
        i = 1
        input = TextBox1.Text
        step1 = Replace(input, " ", "")
        step1 = Replace(step1, "00", "")

        HexNum = 0.5 * Len(step1) - 1

        Dim hex(HexNum) As String

        For j = 0 To HexNum Step 1
            hex(j) = Mid(step1, i, 2)
            i = i + 2
        Next j

        Dim ascii(HexNum) As String

        For i = 0 To HexNum Step 1
            ascii(i) = Chr(Val("&H" & hex(i)))  '转换为字符 利用数值转换
        Next i
        For j = 0 To HexNum
            aim = aim + ascii(j)
        Next
        TextBox2.Text = aim
End Sub

在visual studio 2012 express for desktop/windows8 pro下编译通过。

已编译好的程序如下:(需要.net运行环境支持)

HEXtoASCII