{"id":9073,"date":"2019-11-05T10:43:45","date_gmt":"2019-11-05T13:43:45","guid":{"rendered":"http:\/\/kb.elipse.com.br\/?p=9073"},"modified":"2020-03-27T13:45:38","modified_gmt":"2020-03-27T16:45:38","slug":"realizando-ordenacao-via-vbscript-com-dicionario","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/realizando-ordenacao-via-vbscript-com-dicionario\/","title":{"rendered":"Realizando ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com dicion\u00e1rio."},"content":{"rendered":"<p>Este artigo cont\u00e9m uma aplica\u00e7\u00e3o exemplo que demonstra como realizar uma ordena\u00e7\u00e3o alfab\u00e9tica via <a href=\"https:\/\/www.w3schools.com\/asp\/asp_ref_vbscript_functions.asp\" target=\"_blank\" rel=\"noopener noreferrer\">VBScript<\/a> utilizando o objeto &#8216;<em>dictionary<\/em>&#8216; e a fun\u00e7\u00e3o <strong>SortDictionary<\/strong>, bem como o script respons\u00e1vel por esta execu\u00e7\u00e3o.<\/p>\n<p>Abaixo o c\u00f3digo da fun\u00e7\u00e3o de ordena\u00e7\u00e3o da aplica\u00e7\u00e3o exemplo:<\/p>\n<pre>'######################### Order Dictionary ##########################\r\nFunction SortDictionary(objDict,intSort)\r\nDim strDict()\r\nDim objKey\r\nDim strKey,strItem\r\nDim X,Y,Z\r\n\r\nZ = objDict.Count\r\n\r\nConst dictKey = 1\r\nConst dictItem = 2\r\n\r\nIf Z > 1 Then\r\nReDim strDict(Z,2)\r\nX = 0\r\nFor Each objKey In objDict\r\nstrDict(X,dictKey) = CStr(objKey)\r\nstrDict(X,dictItem) = CStr(objDict(objKey))\r\nX = X + 1\r\nNext\r\n\r\nFor X = 0 to (Z - 2)\r\nFor Y = X to (Z - 1)\r\nIf StrComp(strDict(X,intSort),strDict(Y,intSort),vbTextCompare) > 0 Then\r\nstrKey = strDict(X,dictKey)\r\nstrItem = strDict(X,dictItem)\r\nstrDict(X,dictKey) = strDict(Y,dictKey)\r\nstrDict(X,dictItem) = strDict(Y,dictItem)\r\nstrDict(Y,dictKey) = strKey\r\nstrDict(Y,dictItem) = strItem\r\nEnd If\r\nNext\r\nNext\r\n\r\nobjDict.RemoveAll\r\n\r\nFor X = 0 to (Z - 1)\r\nobjDict.Add strDict(X,dictKey), strDict(X,dictItem)\r\nNext\r\nSet SortDictionary = objDict\r\nEnd If\r\nEnd Function<\/pre>\n<h3>Artigos Relacionados<\/h3>\n<hr \/>\n<ul>\n<li><a href=\"https:\/\/kb.elipse.com.br\/utilizando-o-objeto-dicionario-no-elipse-e3\/\">Utilizando o objeto Dicion\u00e1rio no Elipse E3.<\/a><\/li>\n<\/ul>\n<h3><\/h3>\n<h3>Anexos:<\/h3>\n<p><a href=\"http:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/10\/9073\/SortingAlgorithm.zip\">SortingAlgorithm.zip<\/a><\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Este artigo cont\u00e9m uma aplica\u00e7\u00e3o exemplo que demonstra como realizar uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript utilizando o objeto &#8216;dictionary&#8216; e a fun\u00e7\u00e3o SortDictionary, bem como o script respons\u00e1vel por esta&hellip;<\/p>\n","protected":false},"author":17,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0},"categories":[578,610],"tags":[926,925,930,928,924,927,929,921,922,923],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v19.8 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>Realizando uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.<\/title>\n<meta name=\"description\" content=\"Este artigo apresenta uma aplica\u00e7\u00e3o exemplo que demonstra como criar uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Realizando uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.\" \/>\n<meta property=\"og:description\" content=\"Este artigo apresenta uma aplica\u00e7\u00e3o exemplo que demonstra como criar uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/\" \/>\n<meta property=\"og:site_name\" content=\"Elipse Knowledgebase\" \/>\n<meta property=\"article:publisher\" content=\"http:\/\/www.facebook.com\/elipsesoftware\" \/>\n<meta property=\"article:published_time\" content=\"2019-11-05T13:43:45+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2020-03-27T16:45:38+00:00\" \/>\n<meta name=\"author\" content=\"Marco Antonio Gomes Silva\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Marco Antonio Gomes Silva\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"3 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/\"},\"author\":{\"name\":\"Marco Antonio Gomes Silva\",\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/person\/fa6d0b4f046e3b2c208aaf84a40154e9\"},\"headline\":\"Realizando ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com dicion\u00e1rio.\",\"datePublished\":\"2019-11-05T13:43:45+00:00\",\"dateModified\":\"2020-03-27T16:45:38+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/\"},\"wordCount\":370,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\/\/kb.elipse.com.br\/#organization\"},\"keywords\":[\"alfabetica\",\"alfabeto\",\"arrumar\",\"classificar\",\"ordena\u00e7\u00e3o\",\"ordenar\",\"organizar\",\"sort\",\"sorted\",\"sorting\"],\"articleSection\":[\"Elipse E3\",\"Scripts\"],\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/\",\"url\":\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/\",\"name\":\"Realizando uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.\",\"isPartOf\":{\"@id\":\"https:\/\/kb.elipse.com.br\/#website\"},\"datePublished\":\"2019-11-05T13:43:45+00:00\",\"dateModified\":\"2020-03-27T16:45:38+00:00\",\"description\":\"Este artigo apresenta uma aplica\u00e7\u00e3o exemplo que demonstra como criar uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.\",\"breadcrumb\":{\"@id\":\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"In\u00edcio\",\"item\":\"https:\/\/kb.elipse.com.br\/en\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Realizando ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com dicion\u00e1rio.\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/kb.elipse.com.br\/#website\",\"url\":\"https:\/\/kb.elipse.com.br\/\",\"name\":\"Elipse Knowledgebase\",\"description\":\"\",\"publisher\":{\"@id\":\"https:\/\/kb.elipse.com.br\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/kb.elipse.com.br\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/kb.elipse.com.br\/#organization\",\"name\":\"Elipse Software\",\"url\":\"https:\/\/kb.elipse.com.br\/\",\"sameAs\":[\"http:\/\/www.facebook.com\/elipsesoftware\"],\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/05\/schererelipse-com-br\/logoElipse.png\",\"contentUrl\":\"https:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/05\/schererelipse-com-br\/logoElipse.png\",\"width\":161,\"height\":58,\"caption\":\"Elipse Software\"},\"image\":{\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/person\/fa6d0b4f046e3b2c208aaf84a40154e9\",\"name\":\"Marco Antonio Gomes Silva\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/7d19cf85bb457f81816ff5d785e3b9f4?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/7d19cf85bb457f81816ff5d785e3b9f4?s=96&d=mm&r=g\",\"caption\":\"Marco Antonio Gomes Silva\"},\"url\":\"https:\/\/kb.elipse.com.br\/en\/author\/marco\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Realizando uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.","description":"Este artigo apresenta uma aplica\u00e7\u00e3o exemplo que demonstra como criar uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/","og_locale":"en_US","og_type":"article","og_title":"Realizando uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.","og_description":"Este artigo apresenta uma aplica\u00e7\u00e3o exemplo que demonstra como criar uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.","og_url":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/","og_site_name":"Elipse Knowledgebase","article_publisher":"http:\/\/www.facebook.com\/elipsesoftware","article_published_time":"2019-11-05T13:43:45+00:00","article_modified_time":"2020-03-27T16:45:38+00:00","author":"Marco Antonio Gomes Silva","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Marco Antonio Gomes Silva","Est. reading time":"3 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/#article","isPartOf":{"@id":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/"},"author":{"name":"Marco Antonio Gomes Silva","@id":"https:\/\/kb.elipse.com.br\/#\/schema\/person\/fa6d0b4f046e3b2c208aaf84a40154e9"},"headline":"Realizando ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com dicion\u00e1rio.","datePublished":"2019-11-05T13:43:45+00:00","dateModified":"2020-03-27T16:45:38+00:00","mainEntityOfPage":{"@id":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/"},"wordCount":370,"commentCount":0,"publisher":{"@id":"https:\/\/kb.elipse.com.br\/#organization"},"keywords":["alfabetica","alfabeto","arrumar","classificar","ordena\u00e7\u00e3o","ordenar","organizar","sort","sorted","sorting"],"articleSection":["Elipse E3","Scripts"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/","url":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/","name":"Realizando uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.","isPartOf":{"@id":"https:\/\/kb.elipse.com.br\/#website"},"datePublished":"2019-11-05T13:43:45+00:00","dateModified":"2020-03-27T16:45:38+00:00","description":"Este artigo apresenta uma aplica\u00e7\u00e3o exemplo que demonstra como criar uma ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com o dicion\u00e1rio.","breadcrumb":{"@id":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/kb.elipse.com.br\/realizando-ordenacao-via-vbscript-com-dicionario\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"In\u00edcio","item":"https:\/\/kb.elipse.com.br\/en\/"},{"@type":"ListItem","position":2,"name":"Realizando ordena\u00e7\u00e3o alfab\u00e9tica via VBScript com dicion\u00e1rio."}]},{"@type":"WebSite","@id":"https:\/\/kb.elipse.com.br\/#website","url":"https:\/\/kb.elipse.com.br\/","name":"Elipse Knowledgebase","description":"","publisher":{"@id":"https:\/\/kb.elipse.com.br\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/kb.elipse.com.br\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/kb.elipse.com.br\/#organization","name":"Elipse Software","url":"https:\/\/kb.elipse.com.br\/","sameAs":["http:\/\/www.facebook.com\/elipsesoftware"],"logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/kb.elipse.com.br\/#\/schema\/logo\/image\/","url":"https:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/05\/schererelipse-com-br\/logoElipse.png","contentUrl":"https:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/05\/schererelipse-com-br\/logoElipse.png","width":161,"height":58,"caption":"Elipse Software"},"image":{"@id":"https:\/\/kb.elipse.com.br\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/kb.elipse.com.br\/#\/schema\/person\/fa6d0b4f046e3b2c208aaf84a40154e9","name":"Marco Antonio Gomes Silva","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/kb.elipse.com.br\/#\/schema\/person\/image\/","url":"https:\/\/secure.gravatar.com\/avatar\/7d19cf85bb457f81816ff5d785e3b9f4?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/7d19cf85bb457f81816ff5d785e3b9f4?s=96&d=mm&r=g","caption":"Marco Antonio Gomes Silva"},"url":"https:\/\/kb.elipse.com.br\/en\/author\/marco\/"}]}},"_links":{"self":[{"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/posts\/9073"}],"collection":[{"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/users\/17"}],"replies":[{"embeddable":true,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/comments?post=9073"}],"version-history":[{"count":18,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/posts\/9073\/revisions"}],"predecessor-version":[{"id":10380,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/posts\/9073\/revisions\/10380"}],"wp:attachment":[{"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/media?parent=9073"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/categories?post=9073"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/tags?post=9073"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}