使用 REST Web 服务从 XML 文档中获取文件夹和文件

Question

我目前正在尝试构建一个Web界面，该界面将接收销售订单#并调用REST Web服务来连接我们的数据库并获取将序列化为XML的Sharepoint对象。 我是 Web 服务的新手，所以我不确定到底该怎么做，特别是因为我看到的大多数示例，它们都在检索字符串，我什至不确定您是否可以检索文件或文件夹。 再次，对此很陌生。

有没有办法从XML中获取文件夹和文件？我将这个项目制作为Windows窗体应用程序，希望将信息提取到树视图中，但没有成功。 将其设为 WCF 应用程序会更好吗？ 任何建议都会有所帮助

Imports System.Data.SqlClient
Imports MagnetExchangeUtilities
Imports System.IO
Imports System.Xml
Imports System.Xml.Serialization
Imports MagnetExchangeUtilities.Sharepoint
Public Class Form1
Dim ex As Sharepoint = Nothing
Const connectionString As String = "Server=SQL1;Database=MGNET;Trusted_Connection=True;Connection Timeout=120"
Dim retValue As ReturnVal
'Dim email As EmailItem
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

If tbOrderRef.Text = "" Then
MsgBox("Please enter Order Ref")
Exit Sub
End If
Dim Ref = tbOrderRef.Text
retValue = GetOrderInformation(Ref)

ex = New Sharepoint()

Dim t = ex.GetOrderContent(retValue.Year, retValue.SONumber)
Dim myT = New SPFolderOver()
myT = SPFolderOver.LoadFolder(t)
myT.Name = t.Name
SerializeObjectToFile(myT, "C:UsersapearsonDocumentsWorks.xml")


End Sub
Public Sub SerializeObjectToFile(Of T)(serializableObject As T, fileName As String)
'Throws exception if the object is null
If serializableObject Is Nothing Then
Throw New Exception("The value of the passed object does not contain a value.")
End If
Try
'instantiate xmlDocument
Dim xmlDocument As New XmlDocument()
'Create serializer with the type of the the serializableObject passed as a parameter
Dim serializer As New XmlSerializer(serializableObject.[GetType]())
'Create MemoryStream to write the serialized data to memory
Using stream As New MemoryStream()
'Pass the serialized data to the writer
serializer.Serialize(stream, serializableObject)
'Double check that the memory stream position is zero
stream.Position = 0
'Load string held in writer into the XMLDocument
xmlDocument.Load(stream)
'Save populated XMLDocument to the file path passed as a parameter
xmlDocument.Save(fileName)
stream.Close()
End Using
'Log exception here
Catch ex As Exception
Throw New Exception(ex.ToString)
End Try
End Sub
Private Function GetOrderInformation(ByVal OrderRef As String) As ReturnVal
Dim SONumber As String = ""
Dim OrderYear As String = ""
Dim SQlText As String = "SELECT top 1 msoh.SONumber,  year(soorderdate)" & Environment.NewLine & _
"  FROM [MGNET].[dbo].[MagSalesOrderCommitedItems] msoci" & Environment.NewLine & _
"  inner join MagSalesOrderHeader msoh on msoh.sonumber = msoci.SONumber" & Environment.NewLine & _
"  where msoh.SONumber = '" & OrderRef & "'" & Environment.NewLine & _
"union all" & Environment.NewLine & _
"SELECT top 1 msoh.SONumber,  year(soorderdate)" & Environment.NewLine & _
"  FROM [MGNET].[dbo].[MagSalesOrderCommitedItems] msoci" & Environment.NewLine & _
"  inner join MagSalesOrderHeader msoh on msoh.sonumber = msoci.SONumber" & Environment.NewLine & _
"  where msoci.SOQuoteNumber = '" & OrderRef & "'"

Using con = New SqlConnection(connectionString)
Using cmd = New SqlCommand(SQlText, con)
Try
con.Open()
Catch ex As Exception
Throw New Exception("Error opening connection")
End Try
Using rdr = cmd.ExecuteReader
If rdr.HasRows Then
While rdr.Read()
SONumber = rdr(0)
OrderYear = rdr(1)
End While
End If
End Using
End Using
End Using
Dim ret = New ReturnVal
ret.SONumber = SONumber
ret.Year = OrderYear
Return ret
End Function
Private Sub tvInfo_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles tvInfo.NodeMouseClick
End Sub
Private Sub tvInfo_NodeMouseDoubleClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles tvInfo.NodeMouseDoubleClick
Dim node = tvInfo.SelectedNode
Dim subFolder As String = node.Parent.Text
Dim fileName = ex.GetFileContent(retValue.Year, retValue.SONumber, subFolder, node.Text.Split(";").First.Trim)
Process.Start(fileName)
End Sub
End Class
Public Class ReturnVal
Public Property SONumber As String
Public Property Year As String
End Class

Public Class SPFolderOver
Private _files As List(Of SPFile)
Private _folders As List(Of SPFolderOver)
Private _name As String
Private _fullPath As String
'Private _folderObj As Object
'Private _ctx As SP.ClientContext
Private _sp As Sharepoint

Public Shared Function LoadFolder(ByVal t As SPFolder) As SPFolderOver
Dim spFolder = New SPFolderOver
spFolder.SPFolders = New List(Of SPFolderOver)
For Each f In t.SPFolders
Dim spFold = New SPFolderOver
spFold.FullPath = f.FullPath
spFold.SPFiles.AddRange(f.SPFiles)
If t.SPFolders.Count > 0 Then
spFold.SPFolders = New List(Of SPFolderOver)
For Each nf In f.SPFolders
spFold.SPFolders.Add(LoadFolder(nf))
Next
End If
spFolder.SPFolders.Add(spFold)
Next
Return spFolder
End Function
Public Property SPFiles() As List(Of SPFile)
Get
Return _files
End Get
Set(ByVal value As List(Of SPFile))
_files = value
End Set
End Property
Public Property SPFolders() As List(Of SPFolderOver)
Get
Return _folders
End Get
Set(ByVal value As List(Of SPFolderOver))
_folders = value
End Set
End Property
Public Property Name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
Public Property Folder() As Object
Get
'Return _folderObj
Return Nothing
End Get
Set(ByVal value As Object)
'_folderObj = value
End Set
End Property
'Public Property SPContext() As SP.ClientContext
'    Get
'        'Return _ctx
'        Return Nothing
'    End Get
'    Set(ByVal value As SP.ClientContext)
'        '_ctx = value
'    End Set
'End Property
Public Property FullPath() As String
Get
Return _fullPath
End Get
Set(ByVal value As String)
_fullPath = value
End Set
End Property
Public Property SP() As Sharepoint
Get
Return _sp
End Get
Set(ByVal value As Sharepoint)
_sp = value
End Set
End Property

Public Sub New()
_files = New List(Of SPFile)
_folders = New List(Of SPFolderOver)
'_folderObj = Nothing
_sp = Nothing
End Sub
Public Sub Delete()
'If _folderObj Is Nothing Then
'Return
'End If
'Try
'    _folderObj.DeleteObject()
'    _ctx.ExecuteQuery()
'Catch ex As Exception
'    Throw New Exception("Unable to delete folder! Message: " & ex.Message, ex)
'End Try
Try
'_sp.Impersonation.Impersonate(_sp.Credentials)
Directory.Delete(_fullPath, True)
Catch ex As Exception
Throw New Exception("Unable to delete folder! Message: " & ex.Message, ex)
'Finally
'_sp.Impersonation.Undo()
End Try
End Sub
End Class

Answer 1

您的要求有点令人困惑。 下面的代码提取文件和文件夹的名称，并将结果放入 xml 文件中。 也许这会有所帮助：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Xml;
using System.Xml.Linq;
using System.IO;
namespace SAveDirectoriesXml
{
class Program
{
const string FILENAME = @"c:temptest.xml";
const string FOLDER = @"c:temp";
static XmlWriter writer = null;
static void Main(string[] args)
{
XmlWriterSettings settings = new XmlWriterSettings();
settings.Indent = true;
writer = XmlWriter.Create(FILENAME, settings);
writer.WriteStartDocument(true);
DirectoryInfo info = new DirectoryInfo(FOLDER);
WriteTree(info);
writer.WriteEndDocument();
writer.Flush();
writer.Close();
Console.WriteLine("Enter Return");
Console.ReadLine();
}
static long WriteTree(DirectoryInfo info)
{
long size = 0;
writer.WriteStartElement("Folder");
try
{
writer.WriteAttributeString("name", info.Name);
writer.WriteAttributeString("numberSubFolders", info.GetDirectories().Count().ToString());
writer.WriteAttributeString("numberFiles", info.GetFiles().Count().ToString());
writer.WriteAttributeString("date", info.LastWriteTime.ToString());

foreach (DirectoryInfo childInfo in info.GetDirectories())
{
size += WriteTree(childInfo);
}
}
catch (Exception ex)
{
string errorMsg = string.Format("Exception Folder : {0}, Error : {1}", info.FullName, ex.Message);
Console.WriteLine(errorMsg);
writer.WriteElementString("Error", errorMsg);
}
FileInfo[] fileInfo = null;
try
{
fileInfo = info.GetFiles();
}
catch (Exception ex)
{
string errorMsg = string.Format("Exception FileInfo : {0}, Error : {1}", info.FullName, ex.Message);
Console.WriteLine(errorMsg);
writer.WriteElementString("Error",errorMsg);
}
if (fileInfo != null)
{
foreach (FileInfo finfo in fileInfo)
{
try
{
writer.WriteStartElement("File");
writer.WriteAttributeString("name", finfo.Name);
writer.WriteAttributeString("size", finfo.Length.ToString());
writer.WriteAttributeString("date", info.LastWriteTime.ToString());
writer.WriteEndElement();
size += finfo.Length;
}
catch (Exception ex)
{
string errorMsg = string.Format("Exception File : {0}, Error : {1}", finfo.FullName, ex.Message);
Console.WriteLine(errorMsg);
writer.WriteElementString("Error", errorMsg);
}
}
}
writer.WriteElementString("size", size.ToString());
writer.WriteEndElement();
return size;
}
}
}