{"id":240,"date":"2006-12-15T22:32:47","date_gmt":"2006-12-15T14:32:47","guid":{"rendered":"http:\/\/j178.mtgbb.com\/96"},"modified":"2006-12-15T22:32:47","modified_gmt":"2006-12-15T14:32:47","slug":"%e5%ad%97%e4%b8%b2-16-%e9%80%b2%e4%bd%8d%e8%bd%89%e6%8f%9b","status":"publish","type":"post","link":"https:\/\/j178.mtgbb.com\/?p=240","title":{"rendered":"\u5b57\u4e32 16 \u9032\u4f4d\u8f49\u63db"},"content":{"rendered":"<p>\u7814\u7a76\u4e00\u4e0b\u7121\u7ddaAP\u7684\u5bc6\u78bc\u8a2d\u5b9a\u65b9\u5f0f\uff0c\u525b\u597d\u5728\u7db2\u8def\u4e0a\u627e\u5230\u4e00\u6bb5\u5f88\u6709\u7528\u7684 function<\/p>\n<p>\u8cc7\u6599\u4f86\u6e90: <a href=\"http:\/\/blog.blueshop.com.tw\/HammerChou\/archive\/2006\/01\/07\/15954.aspx\" target=\"_blank\">\u5f37\u529b\u93af\u982d\u7684VB\u90e8\u843d<\/a><\/p>\n<p>\u5982\u4f55\u5c07\u5b57\u4e32\u8f49\u621016\u9032\u4f4d ?<\/p>\n<p><!--more--><\/p>\n<pre lang=\"VB\" line=\"1\">'\u5c07\u5b57\u4e32\u8f49\u6210 16 \u9032\u4f4d\u5b57\u4e32\nPrivate Function CvtString(ByVal strData As String) As String\nDim bytAry() As Byte '\u5ba3\u544a\u4f4d\u5143\u9663\u5217\nDim strResult() As String '\u5ba3\u544a\u5b57\u4e32\u9663\u5217\nDim lngUB As Long\nDim lngLoop As Long\n\n' \u4f7f\u7528 StrConv \u51fd\u6578 , \u4e26\u5c07\u5f15\u6578\u8a2d\u5b9a\u6210 vbFromUnicode ,\n' \u628a\u5b57\u4e32\u7531 Unicode \u8f49\u6210\u7cfb\u7d71\u7684\u9810\u8a2d\u5b57\u5143\u78bc\u5c0d\u61c9\u9801\u3002\n' \u4e26\u653e\u9032\u4f4d\u5143\u9663\u5217\u88e1\nbytAry = StrConv(strData, vbFromUnicode)\nlngUB = UBound(bytAry) ' \u4f7f\u7528 UBound \u51fd\u6578\u53d6\u5f97\u9663\u5217\u6700\u5927\u4e0a\u9650\n\n'\u7528 ReDim \u9673\u8ff0\u5f0f\u4f86\u91cd\u65b0\u914d\u7f6e\u52d5\u614b\u9663\u5217\u8b8a\u6578\u7684\u5132\u5b58\u7a7a\u9593\u3002\nReDim strResult(lngUB) As String ' \u5c07\u5b57\u4e32\u9663\u5217\u91cd\u65b0\u5b9a\u7fa9\u6210\u4f4d\u5143\u9663\u5217\u7684\u6700\u5927\u4e0a\u9650\n\n' \u4f7f\u7528 For Next \u8ff4\u5708\u5c07\u6bcf\u500b\u4f4d\u5143\u9663\u5217\u88e1\u4e4b\u5404\u5143\u7d20\u8f49\u621016\u9032\u4f4d\nFor lngLoop = 0 To lngUB\n strResult(lngLoop) = Hex(bytAry(lngLoop)) '\u4f7f\u7528 HEX \u51fd\u6578\u5c07\u6578\u5b57\u4ee5\u5341\u516d\u9032\u4f4d\nNext\n'\u4f7f\u7528Join \u51fd\u6578\u9023\u7d50\u9663\u5217\u4e2d\u591a\u500b\u5b50\u5b57\u4e32\u4e26\u653e\u81f3\u56de\u50b3\u5b57\u4e32\u88e1\nCvtString = Join(strResult, C-hr(255))\u00a0 '\u7528 C-hr(255) \u4f86\u9023\u7d50\u6bcf\u500b\u5143\u7d20\n\n'\u4f7f\u7528 Erase \u9673\u8ff0\u5f0f\u91cb\u653e\u52d5\u614b\u7684\u5132\u5b58\u7a7a\u9593\nErase bytAry\nErase strResult\n\nEnd Function\n\n\n' \u5c0716\u9032\u4f4d\u5b57\u4e32\u9084\u539f\nPrivate Function RvtString(ByVal strData As String) As String\nDim varAry As Variant\nDim varElement As Variant\nDim bytAry() As Byte\u00a0 ' \u5ba3\u544a\u4f4d\u5143\u9663\u5217\nDim lngLoop As Long\n\n' \u4f7f\u7528 Split \u51fd\u6578, \u5c07\u5b57\u4e32\u4ee5 C-hr(255) \u5b57\u5143\u9694\u958b\u6210\u5f9e\u96f6\u958b\u59cb\u7684\u4e00\u7dad\u9663\u5217\nvarAry = Split(strData, C-hr(255))\n\n' \u7528 ReDim \u9673\u8ff0\u5f0f\u4f86\u91cd\u65b0\u914d\u7f6e\u52d5\u614b\u9663\u5217\u8b8a\u6578\u7684\u5132\u5b58\u7a7a\u9593\u3002\nReDim bytAry(UBound(varAry)) As Byte\u00a0 '\u91cd\u65b0\u5b9a\u7fa9\u4f4d\u5143\u9663\u5217\u7684\u6700\u5927\u4e0a\u9650\n\n' \u4f7f\u7528 For Each \u8ff4\u5708\u4f86\u5c07\u6574\u500b\u9663\u5217\u5143\u7d20\u753116\u4f4d\u5143\u8f49\u56de\nFor Each varElement In varAry\n bytAry(lngLoop) = Val(\"&amp;amp;H\" &amp;amp; varElement)\n lngLoop = lngLoop + 1\nNext\n\n' \u4f7f\u7528 StrConv \u51fd\u6578 , \u4e26\u5c07\u5f15\u6578\u8a2d\u5b9a\u6210 vbFromUnicode ,\n' \u628a\u4f4d\u5143\u9663\u5217\u5167\u5bb9\u64da\u7cfb\u7d71\u7684\u9810\u8a2d\u5b57\u5143\u78bc\u5c0d\u61c9\u9801\u5c07\u5b57\u4e32\u8f49\u6210 Unicode\u3002\n' \u4e26\u653e\u5b57\u4e32\u8b8a\u6578\u91cc\u56de\u50b3\nRvtString = StrConv(bytAry, vbUnicode)\n\n' \u4f7f\u7528 Erase \u9673\u8ff0\u5f0f\u91cb\u653e\u52d5\u614b\u7684\u5132\u5b58\u7a7a\u9593\nErase bytAry\nEnd Function\n\nSample :\nDim strTest As String\nDim strHexValue As String\n\nstrTest = \"This is test !\"\nstrHexValue = CvtString(strTest)\u00a0 '\u5c07\u5b57\u4e32\u8f49 16 \u9032\u4f4d\nMsgBox strHexValue, , \"16\u9032\u4f4d\u503c\"\nMsgBox RvtString(strHexValue), , \"\u9084\u539f\" ' \u5c07\u5b57\u4e32\u7531 16 \u9032\u4f4d\u50b3\u56de\u4f86\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u7814\u7a76\u4e00\u4e0b\u7121\u7ddaAP\u7684\u5bc6\u78bc\u8a2d\u5b9a\u65b9\u5f0f\uff0c\u525b\u597d\u5728\u7db2\u8def\u4e0a\u627e\u5230\u4e00\u6bb5\u5f88\u6709\u7528\u7684 function \u8cc7\u6599\u4f86\u6e90: \u5f37\u529b\u93af\u982d\u7684VB\u90e8\u843d &hellip;<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[15],"tags":[33,31],"class_list":["post-240","post","type-post","status-publish","format-standard","hentry","category-vs-net","tag-vb-net","tag-vb6"],"_links":{"self":[{"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=\/wp\/v2\/posts\/240","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=240"}],"version-history":[{"count":0,"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=\/wp\/v2\/posts\/240\/revisions"}],"wp:attachment":[{"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=240"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=240"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/j178.mtgbb.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=240"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}