VB.Netのコマンドライン（コンソール）プログラム、SharePoint用パラメータ

Question

VB.netでパラメータを許可するコンソールプログラムを作成したいと思います。私は何をしたいのですか？以下のコードでパラメータを追加して、WebpartページをRunメニューから作成することができます。例えばC：....... \ MyProgram.exe "Design" - これでDesignウェブパーツページが作成されます。

私はインターネットを見てみましたが、それほど成功しませんでした。どんな助けでも大歓迎です。

 Module Main 

       Public Sub Main(ByVal args As String()) 
      Dim prj As String 

        Dim site As New SPSite("http://site/") 
        Dim web As SPWeb = site.AllWebs(0) 

        Dim list As SPList = web.Lists("ListName") 

Dim postInformation As String = "<?xml version=""1.0"" encoding=""UTF-8""?><Method><SetList Scope=""Request"">" + list.ID.ToString + "</SetList><SetVar 
    Name=""ID"">New</SetVar><SetVar Name=""Cmd"">NewWebPage</SetVar><SetVar 
    Name=""Type"">WebPartPage</SetVar><SetVar Name=""WebPartPageTemplate"">2</SetVar><SetVar 
    Name=""Title"">" + prj.ToString + "</SetVar><SetVar 
    Name=""Overwrite"">true</SetVar></Method>" 

        Dim processBatch As String = web.ProcessBatchData(postInformation) 
       'Display the results... 
       Console.WriteLine(processBatch) 
        Console.WriteLine("New Web part page added successfully") 
        Console.ReadLine() 



       End Sub 

     End Module 

ありがとうございます！

Answer 1

Public Sub Main(ByVal sArgs() As String) 

    If sArgs.Length = 0 Then    'If there are no arguments 
     Console.WriteLine("Hello World! <-no arguments passed->") 'Just output Hello World 
    Else         'We have some arguments 
     Dim i As Integer = 0 

     While i < sArgs.Length    'So with each argument 
      Console.WriteLine("Hello " & sArgs(i) & "!") 'Print out each item 
      i = i + 1      'Increment to the next argument 
     End While 

    End If 

End Sub 

これは、コマンドライン引数にアクセスするために役立ちます。

すばらしい答え：Rajesh Sitaraman