带有 SharePoint 参数的 VB.Net 命令行(控制台)程序 [英] VB.Net command line (console) program with parameters for SharePoint

问题描述

我想在 VB.net 中创建一个允许参数的控制台程序.我想要做的是在下面的代码中添加参数，以便可以从运行"菜单创建 webpart 页面.例如C:.......MyProgram.exe "Design" -- 这将创建设计 webpart 页面.

I would like to create a console program in VB.net that would allow parameters. What i would like to do is in the code below add parameters so the webpart page can be created from the Run menu. e.g. C:.......MyProgram.exe "Design" --This would then create the Design webpart page.

我尝试查看互联网，但不是很成功.任何帮助将不胜感激.

I tried looking at the internet but was not very successfull. any help would be greatly appreciated.

      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

提前致谢！

推荐答案

 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

希望这有助于访问命令行参数.

Hope this helps, for accessing the command line arguments.

很好的回答:Rajesh Sitaraman

Great answer by: Rajesh Sitaraman

这篇关于带有 SharePoint 参数的 VB.Net 命令行(控制台)程序的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！