{"id":1825,"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 style=\"overflow-wrap:anywhere\">Wie es g0pher schon in <a href=\"https:\/\/funrecycler.com\/index.php\/2010\/07\/21\/vb-net-ascii-zu-ebcdic-converter\/\" style=\"overflow-wrap:anywhere\">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. Und so kann es dann aussehen: <\/p>\n<pre><code>Public Function func_ascii_to_ebcdic(sub_text as String)\n&#x27;&#x27;Variablen\nDim acsii as String = &quot;0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ&quot;\nDim ebcdic as String = &quot;F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 _\nC7C8C9D1D2D3D4D5D6D7D8D9E2E3E4E5E6E7E8E9&quot;\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 + &quot;&amp;H&quot; + Mid(ebcdic, (pos - 1) * 2 + 1, 2)\nNext\nreturn str_con\nEnd Function<\/code><\/pre>\n<p style=\"overflow-wrap:anywhere\"> 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 &quot;&amp;H&quot; + Mid Wert den kompletten EBCDIC String. Wie 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":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[2032,2033,2034,2035,2027,2029,2036,17],"class_list":["post-1825","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\/1825","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=1825"}],"version-history":[{"count":1,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/1825\/revisions"}],"predecessor-version":[{"id":2837,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/1825\/revisions\/2837"}],"wp:attachment":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/media?parent=1825"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/categories?post=1825"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/tags?post=1825"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}