if Num090 = Null then Num090 = empty string
Dim xd As XElement = XElement.Load(strFilename) Dim strPipe As String = Chr(124) Dim strSpace As String = Chr(10) Dim strFinalString As String = "" Dim Records = (From datafields In xd.Descendants("record") Select datafields) For Each ser As XElement In Records Try Dim Num090 = (From datafield In ser.Descendants("datafield") Where (datafield.Attribute("tag").Value = "090") Select datafield.Elements.ElementAt(0)) Dim DTIC856 = (From datafield In ser.Descendants("datafield") Where (datafield.Attribute("tag").Value = "856") Select datafield).Skip(1).First() Catch ex As Exception Finally End Try Next
String.IsNullOrEmpty(String)
If Num90 Is Nothing Then Num90=String.Empty End If
var
XElement
string
Try
Finally
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)