ftp.tcs3.com/ftp.tcs3.com.tar/ftp.tcs3.com/DRIVERS/Audio/Office2010/InfoPath.en-us/InfLR.cab/FL_ReadaDelimitedTextfile_snippet_142684_ENU____.3643236F_FC70_11D3_A536_0090278A1BB8

Extensible Markup Language | 2008-09-17 | 2KB | 45 lines

<?xml version="1.0"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Read a Delimited Text File</Title>
      <Author>Microsoft Corporation</Author>
      <Description>Returns the values in each column and row from a text file with comma-delimited data. Other delimiters may be used.</Description>
      <Shortcut>filParseText</Shortcut>
    </Header>
    <Snippet>
    <Imports>
          <Import>
            <Namespace>Microsoft.VisualBasic.FileIO</Namespace>
          </Import>
  </Imports>
      <Declarations>
        <Literal>
          <ID>Filename</ID>
          <Type>String</Type>
          <ToolTip>Replace with the file name of the text file.</ToolTip>
          <Default>"C:\Test.txt"</Default>
        </Literal>
        <Literal>
          <ID>Delimiter</ID>
          <Type>String</Type>
          <ToolTip>Replace with the delimiter strings.</ToolTip>
          <Default>","</Default>
        </Literal>
      </Declarations>
      <Code Language="VB" Kind="method body"><![CDATA[Dim filename As String = $Filename$
        Dim fields As String()
        Dim delimiter As String = $Delimiter$
        Using parser As New TextFieldParser(filename)
            parser.SetDelimiters(delimiter)
            While Not parser.EndOfData
                ' Read in the fields for the current line
                fields = parser.ReadFields()
                ' Add code here to use data in fields variable.

            End While
        End Using]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>