{"provider_name":"Hatena Blog","categories":["Web\u3067\u52d5\u304fVBA\u30c1\u30e5\u30fc\u30c8\u30ea\u30a2\u30eb\u3092\u4f5c\u308a\u305f\u3044","VBA"],"published":"2015-01-30 06:25:51","provider_url":"https://hatena.blog","author_name":"t-hom","type":"rich","height":"190","author_url":"https://blog.hatena.ne.jp/t-hom/","blog_url":"https://thom.hateblo.jp/","title":"Web\u3067\u52d5\u304fVBA\u30c1\u30e5\u30fc\u30c8\u30ea\u30a2\u30eb\u3092\u4f5c\u308a\u305f\u3044\u3000\u305d\u306e13","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fthom.hateblo.jp%2Fentry%2F2015%2F01%2F30%2F062551\" title=\"Web\u3067\u52d5\u304fVBA\u30c1\u30e5\u30fc\u30c8\u30ea\u30a2\u30eb\u3092\u4f5c\u308a\u305f\u3044\u3000\u305d\u306e13 - t-hom\u2019s diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"url":"https://thom.hateblo.jp/entry/2015/01/30/062551","description":"\u30a4\u30f3\u30bf\u30fc\u30d7\u30ea\u30bf\u30fc\u306e\u4f5c\u6210\u306e\u5143\u306b\u306a\u308b\u3001\u56db\u5247\u8a08\u7b97\u96fb\u5353\u3092\u4f5c\u3063\u305f\u3002 C++\u306e\u30bd\u30fc\u30b9\u3092\u898b\u306a\u304c\u3089VBA\u306e\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u305f\u306e\u3067\u3001C++\u521d\u5fc3\u8005\u306b\u306f\u305d\u308c\u3060\u3051\u3067\u4e00\u82e6\u52b4\u3060\u3063\u305f\u3002 \u518d\u5e30\u7684\u4e0b\u5411\u304d\u69cb\u6587\u89e3\u6790\u3068\u3044\u3046\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3089\u3057\u3044\u3002 Stack\u306f\u4ee5\u524d\u306b\u516c\u958b\u3057\u305f\u3082\u306e\u3092\u6d41\u7528\u3057\u3066\u3044\u308b\u3002 Dim ProgramStack As Stack Dim DataStack As Stack Dim Data() As String Dim P As Integer Sub Main() P = 0 Set DataStack = New Stack Set ProgramStack = New Stack Data = Split(\"3 +\u2026","version":"1.0","width":"100%","blog_title":"t-hom\u2019s diary"}