snipt

Ctrl+h for KB shortcuts

VB.net

commandline vbscript with pretty print

wfullname = wscript.fullname
exe = lcase(mid(wfullname, instrrev(wfullname, "\")+1))
if not exe = "cscript.exe" then
	set wshell = createobject("wscript.shell")
	wshell.run "cscript.exe """ & wscript.scriptfullname & """"
	wscript.quit
end if

set input = wscript.stdin
set output = wscript.stdout

vbprompt = "$ "
output.write vbprompt
do until input.atendofstream
	user_ip = input.readline
	if lcase(user_ip) = "exit" then
		exit do
	else
		run_vbscript user_ip
		output.write vbprompt
	end if
loop

sub run_vbscript (vbcommand)
	on error resume next
	vbcommand = replace (vbcommand, "write", "output.writeline")
	executeglobal vbcommand

	If Err.Number <> 0 Then
		output.writeline "Error #" & Err.number & " :" & Err.description
	End If
	On Error Goto 0

end sub

function to_str( var )
	to_str = ""

	Dim ttype : ttype = TypeName(var)
	Dim str_items
	
	
	If IsArray(var) Then 
		Set str_items = CreateObject("Scripting.Dictionary")
		
		Dim item 
		For Each item in var
			str_items(to_str( item )) = 1
		Next
		to_str = to_str & "[" & Join(str_items.Keys, ", ")  & "]"
		Set str_items = Nothing
	ElseIf IsObject(var) Then 
		
		If ttype = "Dictionary" Then
			Dim key

			Set str_items = CreateObject("Scripting.Dictionary")
			For Each key In var.Keys
				pair = to_str(key) & ": " & to_str(var(key))
				str_items(pair) = 1
			Next 
	
			to_str = to_str & "{" & Join(str_items.Keys, ", ")  & "}"
			Set str_items = Nothing

		Else
			to_str = to_str  & "<" & ttype & ">"
		End If
	ElseIf IsEmpty(var) Then 
		to_str = to_str  & "<empty>"
	ElseIf IsNull(var) Then
		to_str = to_str  & "<null>"
	ElseIf ttype = "String" Then
		'Replace quotes with doble quotes, and put in quotes
		to_str = to_str  & "<""" &  Replace(var, """", """" & """" )  &  """>"
	Else
		to_str = to_str & var 
	End If


end function 

sub pp(var)
	output.writeline( to_str(var) )
end sub 
https://snipt.net/embed/a4b7e34c382edbf3cf33bb0c18468289/
/raw/a4b7e34c382edbf3cf33bb0c18468289/
a4b7e34c382edbf3cf33bb0c18468289
vb.net
VB.net
88
2019-07-21T11:13:39
True
False
False
/api/public/snipt/6467/
commandline-vbscript-with-pretty-print
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1"> 1</a> <a href="#L-2"> 2</a> <a href="#L-3"> 3</a> <a href="#L-4"> 4</a> <a href="#L-5"> 5</a> <a href="#L-6"> 6</a> <a href="#L-7"> 7</a> <a href="#L-8"> 8</a> <a href="#L-9"> 9</a> <a href="#L-10">10</a> <a href="#L-11">11</a> <a href="#L-12">12</a> <a href="#L-13">13</a> <a href="#L-14">14</a> <a href="#L-15">15</a> <a href="#L-16">16</a> <a href="#L-17">17</a> <a href="#L-18">18</a> <a href="#L-19">19</a> <a href="#L-20">20</a> <a href="#L-21">21</a> <a href="#L-22">22</a> <a href="#L-23">23</a> <a href="#L-24">24</a> <a href="#L-25">25</a> <a href="#L-26">26</a> <a href="#L-27">27</a> <a href="#L-28">28</a> <a href="#L-29">29</a> <a href="#L-30">30</a> <a href="#L-31">31</a> <a href="#L-32">32</a> <a href="#L-33">33</a> <a href="#L-34">34</a> <a href="#L-35">35</a> <a href="#L-36">36</a> <a href="#L-37">37</a> <a href="#L-38">38</a> <a href="#L-39">39</a> <a href="#L-40">40</a> <a href="#L-41">41</a> <a href="#L-42">42</a> <a href="#L-43">43</a> <a href="#L-44">44</a> <a href="#L-45">45</a> <a href="#L-46">46</a> <a href="#L-47">47</a> <a href="#L-48">48</a> <a href="#L-49">49</a> <a href="#L-50">50</a> <a href="#L-51">51</a> <a href="#L-52">52</a> <a href="#L-53">53</a> <a href="#L-54">54</a> <a href="#L-55">55</a> <a href="#L-56">56</a> <a href="#L-57">57</a> <a href="#L-58">58</a> <a href="#L-59">59</a> <a href="#L-60">60</a> <a href="#L-61">61</a> <a href="#L-62">62</a> <a href="#L-63">63</a> <a href="#L-64">64</a> <a href="#L-65">65</a> <a href="#L-66">66</a> <a href="#L-67">67</a> <a href="#L-68">68</a> <a href="#L-69">69</a> <a href="#L-70">70</a> <a href="#L-71">71</a> <a href="#L-72">72</a> <a href="#L-73">73</a> <a href="#L-74">74</a> <a href="#L-75">75</a> <a href="#L-76">76</a> <a href="#L-77">77</a> <a href="#L-78">78</a> <a href="#L-79">79</a> <a href="#L-80">80</a> <a href="#L-81">81</a> <a href="#L-82">82</a> <a href="#L-83">83</a> <a href="#L-84">84</a> <a href="#L-85">85</a></pre></div></td><td class="code"><div class="highlight"><pre><span></span><span id="L-1"><a name="L-1"></a><span class="n">wfullname</span> <span class="o">=</span> <span class="n">wscript</span><span class="p">.</span><span class="n">fullname</span> </span><span id="L-2"><a name="L-2"></a><span class="n">exe</span> <span class="o">=</span> <span class="n">lcase</span><span class="p">(</span><span class="n">mid</span><span class="p">(</span><span class="n">wfullname</span><span class="p">,</span> <span class="n">instrrev</span><span class="p">(</span><span class="n">wfullname</span><span class="p">,</span> <span class="s">&quot;\&quot;</span><span class="p">)</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span> </span><span id="L-3"><a name="L-3"></a><span class="k">if</span> <span class="k">not</span> <span class="n">exe</span> <span class="o">=</span> <span class="s">&quot;cscript.exe&quot;</span> <span class="k">then</span> </span><span id="L-4"><a name="L-4"></a> <span class="k">set</span> <span class="n">wshell</span> <span class="o">=</span> <span class="n">createobject</span><span class="p">(</span><span class="s">&quot;wscript.shell&quot;</span><span class="p">)</span> </span><span id="L-5"><a name="L-5"></a> <span class="n">wshell</span><span class="p">.</span><span class="n">run</span> <span class="s">&quot;cscript.exe &quot;&quot;&quot;</span> <span class="o">&amp;</span> <span class="n">wscript</span><span class="p">.</span><span class="n">scriptfullname</span> <span class="o">&amp;</span> <span class="s">&quot;&quot;&quot;&quot;</span> </span><span id="L-6"><a name="L-6"></a> <span class="n">wscript</span><span class="p">.</span><span class="n">quit</span> </span><span id="L-7"><a name="L-7"></a><span class="k">end</span> <span class="k">if</span> </span><span id="L-8"><a name="L-8"></a> </span><span id="L-9"><a name="L-9"></a><span class="k">set</span> <span class="n">input</span> <span class="o">=</span> <span class="n">wscript</span><span class="p">.</span><span class="n">stdin</span> </span><span id="L-10"><a name="L-10"></a><span class="k">set</span> <span class="n">output</span> <span class="o">=</span> <span class="n">wscript</span><span class="p">.</span><span class="n">stdout</span> </span><span id="L-11"><a name="L-11"></a> </span><span id="L-12"><a name="L-12"></a><span class="n">vbprompt</span> <span class="o">=</span> <span class="s">&quot;$ &quot;</span> </span><span id="L-13"><a name="L-13"></a><span class="n">output</span><span class="p">.</span><span class="n">write</span> <span class="n">vbprompt</span> </span><span id="L-14"><a name="L-14"></a><span class="k">do</span> <span class="n">until</span> <span class="n">input</span><span class="p">.</span><span class="n">atendofstream</span> </span><span id="L-15"><a name="L-15"></a> <span class="n">user_ip</span> <span class="o">=</span> <span class="n">input</span><span class="p">.</span><span class="n">readline</span> </span><span id="L-16"><a name="L-16"></a> <span class="k">if</span> <span class="n">lcase</span><span class="p">(</span><span class="n">user_ip</span><span class="p">)</span> <span class="o">=</span> <span class="s">&quot;exit&quot;</span> <span class="k">then</span> </span><span id="L-17"><a name="L-17"></a> <span class="k">exit</span> <span class="k">do</span> </span><span id="L-18"><a name="L-18"></a> <span class="k">else</span> </span><span id="L-19"><a name="L-19"></a> <span class="n">run_vbscript</span> <span class="n">user_ip</span> </span><span id="L-20"><a name="L-20"></a> <span class="n">output</span><span class="p">.</span><span class="n">write</span> <span class="n">vbprompt</span> </span><span id="L-21"><a name="L-21"></a> <span class="k">end</span> <span class="k">if</span> </span><span id="L-22"><a name="L-22"></a><span class="k">loop</span> </span><span id="L-23"><a name="L-23"></a> </span><span id="L-24"><a name="L-24"></a><span class="k">sub</span> <span class="nf">run_vbscript</span> <span class="p">(</span><span class="n">vbcommand</span><span class="p">)</span> </span><span id="L-25"><a name="L-25"></a> <span class="k">on</span> <span class="k">error</span> <span class="k">resume</span> <span class="k">next</span> </span><span id="L-26"><a name="L-26"></a> <span class="n">vbcommand</span> <span class="o">=</span> <span class="n">replace</span> <span class="p">(</span><span class="n">vbcommand</span><span class="p">,</span> <span class="s">&quot;write&quot;</span><span class="p">,</span> <span class="s">&quot;output.writeline&quot;</span><span class="p">)</span> </span><span id="L-27"><a name="L-27"></a> <span class="n">executeglobal</span> <span class="n">vbcommand</span> </span><span id="L-28"><a name="L-28"></a> </span><span id="L-29"><a name="L-29"></a> <span class="k">If</span> <span class="n">Err</span><span class="p">.</span><span class="n">Number</span> <span class="o">&lt;&gt;</span> <span class="mi">0</span> <span class="k">Then</span> </span><span id="L-30"><a name="L-30"></a> <span class="n">output</span><span class="p">.</span><span class="n">writeline</span> <span class="s">&quot;Error #&quot;</span> <span class="o">&amp;</span> <span class="n">Err</span><span class="p">.</span><span class="n">number</span> <span class="o">&amp;</span> <span class="s">&quot; :&quot;</span> <span class="o">&amp;</span> <span class="n">Err</span><span class="p">.</span><span class="n">description</span> </span><span id="L-31"><a name="L-31"></a> <span class="k">End</span> <span class="k">If</span> </span><span id="L-32"><a name="L-32"></a> <span class="k">On</span> <span class="k">Error</span> <span class="k">Goto</span> <span class="mi">0</span> </span><span id="L-33"><a name="L-33"></a> </span><span id="L-34"><a name="L-34"></a><span class="k">end</span> <span class="k">sub</span> </span><span id="L-35"><a name="L-35"></a> </span><span id="L-36"><a name="L-36"></a><span class="k">function</span> <span class="nf">to_str</span><span class="p">(</span> <span class="n">var</span> <span class="p">)</span> </span><span id="L-37"><a name="L-37"></a> <span class="n">to_str</span> <span class="o">=</span> <span class="s">&quot;&quot;</span> </span><span id="L-38"><a name="L-38"></a> </span><span id="L-39"><a name="L-39"></a> <span class="k">Dim</span> <span class="n">ttype</span> <span class="p">:</span> <span class="n">ttype</span> <span class="o">=</span> <span class="n">TypeName</span><span class="p">(</span><span class="n">var</span><span class="p">)</span> </span><span id="L-40"><a name="L-40"></a> <span class="k">Dim</span> <span class="n">str_items</span> </span><span id="L-41"><a name="L-41"></a> </span><span id="L-42"><a name="L-42"></a> </span><span id="L-43"><a name="L-43"></a> <span class="k">If</span> <span class="n">IsArray</span><span class="p">(</span><span class="n">var</span><span class="p">)</span> <span class="k">Then</span> </span><span id="L-44"><a name="L-44"></a> <span class="k">Set</span> <span class="n">str_items</span> <span class="o">=</span> <span class="n">CreateObject</span><span class="p">(</span><span class="s">&quot;Scripting.Dictionary&quot;</span><span class="p">)</span> </span><span id="L-45"><a name="L-45"></a> </span><span id="L-46"><a name="L-46"></a> <span class="k">Dim</span> <span class="n">item</span> </span><span id="L-47"><a name="L-47"></a> <span class="k">For</span> <span class="k">Each</span> <span class="n">item</span> <span class="ow">in</span> <span class="n">var</span> </span><span id="L-48"><a name="L-48"></a> <span class="n">str_items</span><span class="p">(</span><span class="n">to_str</span><span class="p">(</span> <span class="n">item</span> <span class="p">))</span> <span class="o">=</span> <span class="mi">1</span> </span><span id="L-49"><a name="L-49"></a> <span class="k">Next</span> </span><span id="L-50"><a name="L-50"></a> <span class="n">to_str</span> <span class="o">=</span> <span class="n">to_str</span> <span class="o">&amp;</span> <span class="s">&quot;[&quot;</span> <span class="o">&amp;</span> <span class="n">Join</span><span class="p">(</span><span class="n">str_items</span><span class="p">.</span><span class="n">Keys</span><span class="p">,</span> <span class="s">&quot;, &quot;</span><span class="p">)</span> <span class="o">&amp;</span> <span class="s">&quot;]&quot;</span> </span><span id="L-51"><a name="L-51"></a> <span class="k">Set</span> <span class="n">str_items</span> <span class="o">=</span> <span class="k">Nothing</span> </span><span id="L-52"><a name="L-52"></a> <span class="k">ElseIf</span> <span class="n">IsObject</span><span class="p">(</span><span class="n">var</span><span class="p">)</span> <span class="k">Then</span> </span><span id="L-53"><a name="L-53"></a> </span><span id="L-54"><a name="L-54"></a> <span class="k">If</span> <span class="n">ttype</span> <span class="o">=</span> <span class="s">&quot;Dictionary&quot;</span> <span class="k">Then</span> </span><span id="L-55"><a name="L-55"></a> <span class="k">Dim</span> <span class="n">key</span> </span><span id="L-56"><a name="L-56"></a> </span><span id="L-57"><a name="L-57"></a> <span class="k">Set</span> <span class="n">str_items</span> <span class="o">=</span> <span class="n">CreateObject</span><span class="p">(</span><span class="s">&quot;Scripting.Dictionary&quot;</span><span class="p">)</span> </span><span id="L-58"><a name="L-58"></a> <span class="k">For</span> <span class="k">Each</span> <span class="n">key</span> <span class="ow">In</span> <span class="n">var</span><span class="p">.</span><span class="n">Keys</span> </span><span id="L-59"><a name="L-59"></a> <span class="n">pair</span> <span class="o">=</span> <span class="n">to_str</span><span class="p">(</span><span class="n">key</span><span class="p">)</span> <span class="o">&amp;</span> <span class="s">&quot;: &quot;</span> <span class="o">&amp;</span> <span class="n">to_str</span><span class="p">(</span><span class="n">var</span><span class="p">(</span><span class="n">key</span><span class="p">))</span> </span><span id="L-60"><a name="L-60"></a> <span class="n">str_items</span><span class="p">(</span><span class="n">pair</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span> </span><span id="L-61"><a name="L-61"></a> <span class="k">Next</span> </span><span id="L-62"><a name="L-62"></a> </span><span id="L-63"><a name="L-63"></a> <span class="n">to_str</span> <span class="o">=</span> <span class="n">to_str</span> <span class="o">&amp;</span> <span class="s">&quot;{&quot;</span> <span class="o">&amp;</span> <span class="n">Join</span><span class="p">(</span><span class="n">str_items</span><span class="p">.</span><span class="n">Keys</span><span class="p">,</span> <span class="s">&quot;, &quot;</span><span class="p">)</span> <span class="o">&amp;</span> <span class="s">&quot;}&quot;</span> </span><span id="L-64"><a name="L-64"></a> <span class="k">Set</span> <span class="n">str_items</span> <span class="o">=</span> <span class="k">Nothing</span> </span><span id="L-65"><a name="L-65"></a> </span><span id="L-66"><a name="L-66"></a> <span class="k">Else</span> </span><span id="L-67"><a name="L-67"></a> <span class="n">to_str</span> <span class="o">=</span> <span class="n">to_str</span> <span class="o">&amp;</span> <span class="s">&quot;&lt;&quot;</span> <span class="o">&amp;</span> <span class="n">ttype</span> <span class="o">&amp;</span> <span class="s">&quot;&gt;&quot;</span> </span><span id="L-68"><a name="L-68"></a> <span class="k">End</span> <span class="k">If</span> </span><span id="L-69"><a name="L-69"></a> <span class="k">ElseIf</span> <span class="n">IsEmpty</span><span class="p">(</span><span class="n">var</span><span class="p">)</span> <span class="k">Then</span> </span><span id="L-70"><a name="L-70"></a> <span class="n">to_str</span> <span class="o">=</span> <span class="n">to_str</span> <span class="o">&amp;</span> <span class="s">&quot;&lt;empty&gt;&quot;</span> </span><span id="L-71"><a name="L-71"></a> <span class="k">ElseIf</span> <span class="n">IsNull</span><span class="p">(</span><span class="n">var</span><span class="p">)</span> <span class="k">Then</span> </span><span id="L-72"><a name="L-72"></a> <span class="n">to_str</span> <span class="o">=</span> <span class="n">to_str</span> <span class="o">&amp;</span> <span class="s">&quot;&lt;null&gt;&quot;</span> </span><span id="L-73"><a name="L-73"></a> <span class="k">ElseIf</span> <span class="n">ttype</span> <span class="o">=</span> <span class="s">&quot;String&quot;</span> <span class="k">Then</span> </span><span id="L-74"><a name="L-74"></a> <span class="c">&#39;Replace quotes with doble quotes, and put in quotes</span> </span><span id="L-75"><a name="L-75"></a> <span class="n">to_str</span> <span class="o">=</span> <span class="n">to_str</span> <span class="o">&amp;</span> <span class="s">&quot;&lt;&quot;&quot;&quot;</span> <span class="o">&amp;</span> <span class="n">Replace</span><span class="p">(</span><span class="n">var</span><span class="p">,</span> <span class="s">&quot;&quot;&quot;&quot;</span><span class="p">,</span> <span class="s">&quot;&quot;&quot;&quot;</span> <span class="o">&amp;</span> <span class="s">&quot;&quot;&quot;&quot;</span> <span class="p">)</span> <span class="o">&amp;</span> <span class="s">&quot;&quot;&quot;&gt;&quot;</span> </span><span id="L-76"><a name="L-76"></a> <span class="k">Else</span> </span><span id="L-77"><a name="L-77"></a> <span class="n">to_str</span> <span class="o">=</span> <span class="n">to_str</span> <span class="o">&amp;</span> <span class="n">var</span> </span><span id="L-78"><a name="L-78"></a> <span class="k">End</span> <span class="k">If</span> </span><span id="L-79"><a name="L-79"></a> </span><span id="L-80"><a name="L-80"></a> </span><span id="L-81"><a name="L-81"></a><span class="k">end</span> <span class="k">function</span> </span><span id="L-82"><a name="L-82"></a> </span><span id="L-83"><a name="L-83"></a><span class="k">sub</span> <span class="nf">pp</span><span class="p">(</span><span class="n">var</span><span class="p">)</span> </span><span id="L-84"><a name="L-84"></a> <span class="n">output</span><span class="p">.</span><span class="n">writeline</span><span class="p">(</span> <span class="n">to_str</span><span class="p">(</span><span class="n">var</span><span class="p">)</span> <span class="p">)</span> </span><span id="L-85"><a name="L-85"></a><span class="k">end</span> <span class="k">sub</span> </span></pre></div> </td></tr></table>
vbscript