{"id":6907,"date":"2010-07-22T07:06:09","date_gmt":"2010-07-22T05:06:09","guid":{"rendered":"http:\/\/funrecycler.com\/?p=6907"},"modified":"2010-07-22T07:06:09","modified_gmt":"2010-07-22T05:06:09","slug":"update-vb-net-ascii-zu-ebcdic-converter","status":"publish","type":"post","link":"https:\/\/funrecycler.com\/index.php\/2010\/07\/22\/update-vb-net-ascii-zu-ebcdic-converter\/","title":{"rendered":"Update &#8211; VB.net &#8211; ascii zu ebcdic converter"},"content":{"rendered":"<p>Wie es g0pher schon in <a title=\"ebcdic\" href=\"http:\/\/funrecycler.com\/?p=6881\" target=\"_blank\" rel=\"noopener\">meinen Beitrag<\/a> kommentiert hat, geht es nat\u00fcrlich etwas k\u00fcrzer. Anstatt die ganzen ACSII und EBCDIC Werte einzeln den Array zu \u00fcbergeben, l\u00e4sst sich das ganze auch per Schleife realisieren.<br \/>\nUnd so kann es dann aussehen:<\/p>\n<pre lang=\"VB\">Public Function func_ascii_to_ebcdic(sub_text as String)\n''Variablen\nDim acsii as String = \"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ\"\nDim ebcdic as String = \"F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 _\nC7C8C9D1D2D3D4D5D6D7D8D9E2E3E4E5E6E7E8E9\"\nDim str_con As String\nDim pos as String\nFor x = 1 To Len(sub_text)\n    pos = InStr(acsii, UCase( Mid(sub_text, x, 1)))\n    str_con = str_con + \"&H\" + Mid(ebcdic, (pos - 1) * 2 + 1, 2)\nNext\nreturn str_con\nEnd Function<\/pre>\n<p>Das praktische hierbei ist die InStr Funktion, damit spart man eine For Schleife. InStr liefert die Position des jeweiligen ACSII Zeichen, da die EBCDIC Werte aus 2 Zeichen bestehen, multipliziert man das ganze x 2 und erh\u00e4lt so \u00fcber &#8222;&#038;H&#8220; + Mid Wert den kompletten EBCDIC String.<br \/>\nWie man an Hand der optimierten g0pher Funkion sehen kann, l\u00e4sst sich vieles einfach und praktischer programmieren.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Wie es g0pher schon in meinen Beitrag kommentiert hat, geht es nat\u00fcrlich etwas k\u00fcrzer. Anstatt die ganzen ACSII<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14],"tags":[173,174,294,296,834,863,864,2815],"class_list":["post-6907","post","type-post","status-publish","format-standard","hentry","category-programmieren","tag-acsii","tag-acsii-zu-ebcdic","tag-as400","tag-as400-ebcdic-net","tag-dtaq","tag-ebcdic","tag-ebcdic-konverter","tag-vbnet"],"_links":{"self":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/6907","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/comments?post=6907"}],"version-history":[{"count":0,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/6907\/revisions"}],"wp:attachment":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/media?parent=6907"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/categories?post=6907"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/tags?post=6907"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}