"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")  
 

Option Explicit On
Option Strict On
Imports System.Text
Public Class Form1
    Dim AplicacionCerrada As Boolean = False
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stopWatch As New Stopwatch() : Dim ts As TimeSpan : Dim elapsedTime As String = Nothing
        Dim Cont As Integer = 0
 
        stopWatch.Start()
        Do
            Cont += 1
            ts = stopWatch.Elapsed
            String.Format("{00}", ts.Seconds)
 
            '///Experimeto que mide el número de procesos por segundo
            Dim Datos As New StringBuilder
            With Datos
                .AppendFormat("Procesos: {0}", CInt(Cont))
                .AppendLine()
                .AppendFormat("Segundos: {0}", ts.Seconds)
                .AppendLine()
                .AppendFormat("Velocidad: {0}", (CInt(Cont) / (CInt(ts.Seconds))).ToString("0.000") & " Proc/s")
            End With
            Label1.Text = Datos.ToString
            '/////////////////////////////////////////////////////////////////////////
 
            If AplicacionCerrada = True Then End
            If ts.Seconds = 10 Then stopWatch.Stop() : Exit Do
            My.Application.DoEvents()
        Loop While Cont < 14000
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
        AplicacionCerrada = True
    End Sub
End Class
 

Option Explicit On
Option Strict On
Imports System.Threading.Tasks
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stopWatch As New Stopwatch() : Dim ts As TimeSpan : Dim elapsedTime As String = Nothing
        Dim Cont As Integer = 0
 
        Task.Factory.StartNew(Sub()
 
                                  stopWatch.Start()
                                  'Desactivar el chequeo sobre acceso de varios subprocesos
                                  ' CheckForIllegalCrossThreadCalls = False 
 
                                  Do
                                      Cont += 1
                                      ts = stopWatch.Elapsed
                                      String.Format("{00}", ts.Seconds)
                                      '///Experimeto que mide el número de procesos por segundo
                                      Dim Datos As New StringBuilder
                                      With Datos
                                          .AppendFormat("Procesos: {0}", CInt(Cont))
                                          .AppendLine()
                                          .AppendFormat("Segundos: {0}", ts.Seconds)
                                          .AppendLine()
                                          .AppendFormat("Velocidad: {0}", (CInt(Cont) / (CInt(ts.Seconds))).ToString("0.000") & " Proc/s")
                                      End With
                                      Label1.Invoke(CType(Sub() Label1.Text = Datos.ToString, MethodInvoker))
                                      '/////////////////////////////////////////////////////////////////////////
                                      If ts.Seconds = 10 Then stopWatch.Stop() : Exit Do
                                      '  My.Application.DoEvents()
                                  Loop While Cont < 14000
 
                              End Sub).ContinueWith(Sub()
                                                        Me.Invoke(Sub()
                                                                      Me.Text = "Proceso terminado"
                                                                  End Sub)
                                                    End Sub)
    End Sub
End Class
 

Label1.Invoke(DirectCast(Sub() Label1.Text = Datos, MethodInvoker))

 Me.Invoke(Sub()
        Me.Text = "Proceso terminado"
        End Sub)

Option Strict On
Option Explicit On
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SecA As TimeSpan, SecB As TimeSpan
        SecA = TimeSpan.FromTicks(Date.Now.Ticks)
        Do
            SecB = TimeSpan.FromTicks(Date.Now.Ticks).Subtract(SecA)
            Me.Text = CStr(SecB.Seconds)
            If CInt(SecB.Seconds) = 10 Then Exit Do
            My.Application.DoEvents()
        Loop 'While (podría poner condición y si se cumple sale antes de los 10 segundos) 
    End Sub
 
    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        End
    End Sub
End Class

    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        End
    End Sub