{"id":1712,"date":"2012-05-25T15:50:12","date_gmt":"2012-05-25T06:50:12","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=1712"},"modified":"2012-05-25T15:50:12","modified_gmt":"2012-05-25T06:50:12","slug":"%e3%83%97%e3%83%ad%e3%82%b0%e3%83%a9%e3%83%a0%e3%81%ae%e3%82%bd%e3%83%bc%e3%82%b9%e3%82%b3%e3%83%bc%e3%83%89%e3%82%92%e5%88%a5%e3%81%ae%e8%a8%80%e8%aa%9e%e3%81%ab%e5%a4%89%e6%8f%9b%e3%81%99%e3%82%8bvb","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=1712","title":{"rendered":"\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u3092\u5225\u306e\u8a00\u8a9e\u306b\u5909\u63db\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

SharpDevelop\u304c\u516c\u958b\u3057\u3066\u3044\u308b\u3001\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u3092\u5909\u63db\u3059\u308bAPI\u300cSharpDevelop Code Converter API<\/a>\u300d\u3092\u898b\u3064\u3051\u305f\u306e\u3067\u3001\u65e9\u901f\u8a66\u3057\u3066\u307f\u307e\u3057\u305f(Web\u4e0a\u306e\u30b3\u30f3\u30d0\u30fc\u30bf\u30fc\u306f\u30b3\u30c1\u30e9<\/a>)\u3002<\/p>\n

\u30d7\u30ed\u30c8\u30b3\u30eb\u304cSOAP\u306a\u306e\u3067SoapClient30\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u5229\u7528\u3057\u307e\u3059\u3002<\/p>\n

\u203b \u8981SOAP Toolkit<\/span><\/p>\n

\u30fbSOAP Toolkit 3.0<\/strong>
\nhttp:\/\/www.microsoft.com\/en-us\/download\/details.aspx?id=13456<\/a><\/p>\n

Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim TypeOfConversion As String\r\n  Dim SourceCode As String\r\n  Dim ConvertedCode As String\r\n  Dim ErrorMessage As String\r\n  \r\n  'TypeOfConversion:\u5909\u63db\u5143\u3068\u5909\u63db\u5148\u8a00\u8a9e\r\n  'C# to VB.NET:cs2vbnet\r\n  'VB.NET to C#:vbnet2cs\r\n  'C# to Boo:cs2boo\r\n  'VB.NET to Boo:vbnet2boo\r\n  TypeOfConversion = "cs2vbnet"\r\n  \r\n  '\u5909\u63db\u5143\u30b3\u30fc\u30c9(C#)\r\n  SourceCode = "using System;" & vbCrLf\r\n  SourceCode = SourceCode & "namespace HelloWorld" & vbCrLf\r\n  SourceCode = SourceCode & "{" & vbCrLf\r\n  SourceCode = SourceCode & "    class Hello" & vbCrLf\r\n  SourceCode = SourceCode & "    {" & vbCrLf\r\n  SourceCode = SourceCode & "        static void Main()" & vbCrLf\r\n  SourceCode = SourceCode & "        {" & vbCrLf\r\n  SourceCode = SourceCode & "            System.Console.WriteLine(""Hello World!"");" & vbCrLf\r\n  SourceCode = SourceCode & "        }" & vbCrLf\r\n  SourceCode = SourceCode & "    }" & vbCrLf\r\n  SourceCode = SourceCode & "}"\r\n  \r\n  With CreateObject("MSSOAP.SoapClient30")\r\n    .MSSoapInit2 "http:\/\/codeconverter.sharpdevelop.net\/ConvertService.asmx?WSDL", _\r\n                 "", _\r\n                 "ConvertService", _\r\n                 "ConvertServiceSoap", _\r\n                 "http:\/\/developer.sharpdevelop.net\/CodeConverter.NET\/"\r\n    If .PerformConversion(TypeOfConversion, SourceCode, ConvertedCode, ErrorMessage) Then\r\n      .ConvertSnippet TypeOfConversion, SourceCode, ConvertedCode, ErrorMessage\r\n      Debug.Print ConvertedCode\r\n    End If\r\n  End With\r\nEnd Sub<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306fConvertSnippet<\/strong>\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u3092\u547c\u3073\u51fa\u3057\u3066\u30b3\u30fc\u30c9\u306e\u5909\u63db\u3092\u884c\u3063\u3066\u3044\u3066\u3001\u5143\u3068\u306a\u308bC#\u306e\u30b3\u30fc\u30c9\u304c\u4e0b\u8a18\u3067\u3001<\/p>\n
using System;\r\nnamespace HelloWorld\r\n{\r\n    class Hello\r\n    {\r\n        static void Main()\r\n        {\r\n            System.Console.WriteLine("Hello World!");\r\n        }\r\n    }\r\n}<\/pre>\n
\u51fa\u529b\u3055\u308c\u305fVB\u306e\u30b3\u30fc\u30c9\u304c\u4e0b\u8a18\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
Namespace HelloWorld\r\n    Class Hello\r\n        Private Shared Sub Main()\r\n            System.Console.WriteLine("Hello World!")\r\n        End Sub\r\n    End Class\r\nEnd Namespace<\/pre>\n
\u7cbe\u5ea6\u306e\u691c\u8a3c\u307e\u3067\u306f\u3057\u3066\u3044\u307e\u305b\u3093\u304c\u3001\u7c21\u5358\u306a\u30b3\u30fc\u30c9\u3060\u3063\u305f\u3089\u3061\u3083\u3093\u3068\u5909\u63db\u3057\u3066\u304f\u308c\u305d\u3046\u3067\u3059\u3002
\n\u3053\u306eAPI\u3092VBA\u304b\u3089\u4f7f\u3046\u662f\u975e\u306f\u514e\u3082\u89d2\u3068\u3057\u3066\u3001\u4e2d\u3005\u9762\u767d\u3044API\u3067\u3059\u306d\uff01
\n\u5b9f\u969b\u306b\u5229\u7528\u3059\u308b\u969b\u306b\u306f\u3001\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3084\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306b\u66f8\u304b\u308c\u305f\u30b3\u30fc\u30c9\u3092\u5909\u63db\u3059\u308b\u3001\u3068\u3044\u3046\u5f62\u306b\u3059\u308c\u3070\u4f7f\u3044\u52dd\u624b\u304c\u3088\u304f\u306a\u308a\u305d\u3046\u3067\u3059\u3002<\/p>\n
\u3061\u306a\u307f\u306b\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u66f8\u304f\u306b\u3042\u305f\u3063\u3066\u30b5\u30f3\u30d7\u30eb\u3084\u8cc7\u6599\u304c\u5c11\u306a\u3044\u306e\u3067\u82e5\u5e72\u82e6\u52b4\u3057\u307e\u3057\u305f\u3002
\n(“TypeOfConversion<\/strong>“\u306b\u6307\u5b9a\u3059\u308b\u30b3\u30fc\u30c9\u306e\u7a2e\u985e\u306e\u66f8\u304d\u65b9\u3082\u6700\u521d\u306f\u5206\u304b\u3089\u305a\u2026)
\nC#\u3067\u66f8\u304b\u308c\u305f\u4e0b\u8a18\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u3092\u898b\u3064\u3051\u3066\u3088\u3046\u3084\u304f\u4f7f\u3044\u65b9\u304c\u5206\u304b\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u3082\u3046\u3061\u3087\u3063\u3068\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u3092\u8f09\u305b\u3066\u304a\u3044\u3066\u307b\u3057\u304b\u3063\u305f\uff01\u3068\u3044\u3046\u306e\u304c\u6b63\u76f4\u306a\u611f\u60f3\u3067\u3059\u3002<\/p>\n
\u30fbWindows Forms Web Service Client<\/strong>
\nhttp:\/\/codeconverter.sharpdevelop.net\/DotNetClientApplication.aspx<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"SharpDevelop\u304c\u516c\u958b\u3057\u3066\u3044\u308b\u3001\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u3092\u5909\u63db\u3059\u308bAPI\u300cSharpDevelop Code Converter API\u300d\u3092\u898b\u3064\u3051\u305f\u306e\u3067\u3001\u65e9\u901f\u8a66\u3057\u3066\u307f\u307e\u3057\u305f(Web\u4e0a\u306e\u30b3\u30f3\u30d0\u30fc\u30bf\u30fc\u306f\u30b3\u30c1\u30e9)\u3002 \u30d7\u30ed\u30c8\u30b3\u30eb\u304cS […]","protected":false},"author":1,"featured_media":7111,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[48,4,49],"tags":[63,64,65],"class_list":["post-1712","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel-office","category-office","category-word-office","tag-excel","tag-office","tag-word"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t