"652394532592467968,"","","2015-10-09 08:05:52 +0000","Twitter Web Client","Hay ocasiones en la que mejor prevalecer ‪#‎Sisepuede‬ y seguir adelante."

Element Name,Windows NT,Windows,Windows CE,Win32s,Component,Component Version,Header File,Import Library,Unicode,Element Type
ADsBuildEnumerator,4.0 or later,,,,ADSI,,adshlp.h,,,function
ADsBuildVarArrayInt,4.0 or later,,,,ADSI,,adshlp.h,,,function
ADsBuildVarArrayStr,4.0 or later,,,,ADSI,,adshlp.h,,,function
...

NumFile = FreeFile
Open NombreFichero For Append As NumFile 
Write #NumFile , Date$, Time$, Time$, "00:00:00"
Close NumFile 

"10-20-2015","23:30:13","23:30:13","00:00:00"

NumFile = FreeFile
Open NombreFichero For Input As NumFile 
Input #NumFile , Dato1, Dato2, Dato3, Dato4 
Close NumFile 

Option Explicit
 
Private Sub cmdGuardar_Click()
Dim NombreFichero As String
Dim NumFile As Integer
 
NombreFichero = App.Path & "\Prueba.txt"
NumFile = FreeFile
 
Open NombreFichero For Append As NumFile 
Write #NumFile , Date$, Time$, Time$, "00:00:00"
Close NumFile 
 
'Se guarda con este formato
'"10-20-2015","23:27:56","23:27:56","00:00:00"
End Sub
 
Private Sub cmdAbrir_Click()
Dim NombreFichero As String
Dim Dato1 As String, Dato2 As String, Dato3  As String, Dato4 As String
Dim NumFile As Integer
 
NombreFichero = App.Path & "\Prueba.txt"
NumFile = FreeFile
 
Open NombreFichero For Input As NumFile 
Input #NumFile , Dato1, Dato2, Dato3, Dato4
Close NumFile 
Text1.Text = Dato1 & "  " & Dato2 & "  " & Dato3 & "  " & Dato4
 
'Se Abre con este formato (sin comillas)
'10-20-2015  23:27:56  23:27:56  00:00:00
End Sub
 
 

Option Explicit
Private Sub Command1_Click()
  Dim Texto As String
  Dim DirFile As String
 
  '//Directorio donde se encuentra el archivo
  DirFile = App.Path & "\goURL_lr_photoshop_cz.csv"
 
  'Obtiene el texto
  Texto = LeerArchivo(DirFile)
 
  'Obtiene las líneas y las introduce en un ListBox
   Call CrearListaCompleta(Texto, List1)
 
End Sub
'//Proceso para obtener las líneas de un texto
Public Sub CrearListaCompleta(ByVal strLista As String, ByVal objList As ListBox)
    Dim Lineas() As String
    Dim i As Integer
    Lineas = Split(strLista, vbNewLine)
    For i = LBound(Lineas) To UBound(Lineas)
        If Lineas(i) <> "" Then objList.AddItem Lineas(i)
    Next
End Sub
 
Public Function LeerArchivo(ByVal DirFile As String) As String
  Dim FileName As String
  Dim File As Integer
  File = FreeFile
  FileName = DirFile
  Open FileName For Input As File
    LeerArchivo = Input(LOF(File), #File)
  Close File
End Function
 

Public Function GuardarArchivoTexto(ByVal strTexto As String, ByVal FileName As String)
  Dim File As Integer, Cont As Integer, cDato As String
  On Error GoTo EvitarError
      File = FreeFile
  Open FileName For Binary As #File
For Cont = 1 To Len(strTexto)
    Put #File, Cont, strTexto
    Close #File
Next
EvitarError:
Select Case Err.Number
    Case 91
    Resume Next
End Select
End Function
 

Dim Texto as Sring
Texto = "¡Hola que tal!"
Call GuardarArchivoTexto(Texto , "C:\Prueba.txt")  
 

Dim Texto as Sring
Texto = "¡Hola que tal!"
Call GuardarArchivoTexto(Texto , "C:\Prueba.csv")  
 

"652394532592467968,"","","2015-10-09 08:05:52 +0000","Twitter Web Client","Hay ocasiones en la que mejor prevalecer ‪#‎Sisepuede‬ y seguir adelante.","","","",""
646843948586045440,"","","2015-09-24 00:29:49 +0000","<a href=""http://twitter.com"" rel=""nofollow"">Twitter Web Client</a>","#sisepuede Seguimos adelante :)","","","",""

Dim csvFilepath As String = "C:\file.csv"
Dim csvLines As String() = File.ReadAllLines(csvFilepath, Encoding.Default)
 
Me.ListBox1.Items.AddRange(csvLines)

Dim csvFilepath As String = "C:\file.csv"
Dim csvFields As New List(Of String)
 
Using csvParser As New TextFieldParser(csvFilepath, Encoding.Default, detectEncoding:=True) With {
    .TextFieldType = FieldType.Delimited,
    .Delimiters = {","},
    .HasFieldsEnclosedInQuotes = True
}
 
    Do Until csvParser.EndOfData
        Try
            csvFields.Add(csvParser.ReadFields(0)) ' Campo 0.
 
        Catch ex As MalformedLineException
            ' Linea con formato incorrecto...
 
        End Try
    Loop
 
End Using
 
Me.ListBox1.Items.AddRange(csvFields.ToArray)

Imports System.Web
 
Dim csvFilepath As String = "C:\file.csv"
 
Dim comments As IEnumerable(Of String) =
    From line As String In File.ReadAllLines(csvFilepath, Encoding.UTF8)
    Select HttpUtility.HtmlDecode(line.Split(","c)(5).Trim(ControlChars.Quote))
 
Me.ListBox1.Items.AddRange(comments.ToArray)

Dim tokens As String() = <a>"hello",14,</a>.Value.Split({ControlChars.Cr, ControlChars.CrLf, ","c, ";"c}, StringSplitOptions.None)
 
For Each token As String In tokens
    Console.WriteLine(token.Trim({ControlChars.Quote}))
Next token

Using parser As TextFieldParser = My.Computer.FileSystem.OpenTextFieldParser("File.csv", {",", ";"})
 
    Do Until parser.EndOfData
 
        ' ...
 
    Loop
 
End Using