Wallpaper sexy de Chica emelexista
Wallaper para la pagina emelexista.com de esta chica super sexi saliendo del cubo de sorpresas que este año dará el equipo. Con una belleza asi y para los colores que...
Sentada aqui en mi alma
Inspirado en la cancion de chayanne se pudo crear este wallpaper de esta hermosa chica azul para su...
Campaña Publicitaria para I Love Ecuador
Fotografia tomada para la campaña publicitaria de las camisetas i love Ecuador, en esta ocasion Mariuxi Cruz tiene la camiseta de i love Ecuador en color rojo con en el...
Atardecer en Playas 2010
El ultimo vuelo Sin duda algo que me encanta de las aves es su libertad, vuelan donde quieren sin pedir permiso y andan de nido en nido siempre acompañadas en manadas y...
Como leer y escribir un txt en Vb.net 2003
Bueno esto no tiene nada que ver con la fotografia pero es parte de mi trabajo diario. La idea es de un archivo txt añadir una informacion dependiendo de una...
Jugando a las escondidas
Las Escondidas Jugando a las escondidas mi ultimo trabajo viajando a Playas encontre este tronco con una niña en la parte posterior del mismo con un cielo impresionante y unas cabañitas...
La soledad es una ingrata que se le va agarrando el gusto.
Soledad Ingrata La soledad una gran amiga que esta siempre en nuestras vidas, el problema es cuando se queda largos periodos de tiempo, y a veces sin poderlas sacar. Me pregunte que...
Dos Generaciones Azules
Dos Generaziones Azules Realizar esta foto me tomo 2 semanas y costo alrededor de $50, un dia con Sebas paseando por los malles de la ciudad decidio comerse un Mc flurry...
Theme Default modificado con jquery
Realice una modificación al theme por defecto del wordpress para mostrar una galeria de imagenes como carrusel al iniciar el blog, descargalo desde aqui y me avisas como te...
Codigo de Visual Basic
Bueno esto no tiene nada que ver con la fotografia pero es parte de mi trabajo diario. La idea es de un archivo txt añadir una informacion dependiendo de una seleccion y grabarlo en un nuevo archivo texto. Pos aqui esta la solucion veanla esta programada en vb.net 2003 ojala alguien le sirva y me dan un comment si lo usaron thks.
Aqui el codigo:
Dim VRuta As String
Dim objStreamWriter As StreamWriter
Dim sLine As String = “”
Dim arrText As New ArrayList
Dim j As Integer
Dim VDelimitador As String
Dim result As DialogResult = OpenFileDialog1.ShowDialog()
Dim VBanco, VMes As String
VBanco = Me.cmb_banco.SelectedItem
VMes = Month(Now) & “-” & Year(Now)
If VBanco <> “Seleccione” Then
Select Case VBanco
Case “Guayaquil”
VBanco = “BG”
Case “Amazonas”
VBanco = “BA”
Case “Pacifi”
VBanco = “PD”
Case Else
lblerror.Visible = True
lblerror.Text = “Seleccione el Banco”
Exit Sub
End Select
If result = DialogResult.OK Then
VRuta = VRuta & OpenFileDialog1.FileName
TextBox1.Text = VRuta
Else
Me.lblerror.Visible = True
Me.lblerror.Text = “Debe ingresar una ruta existente”
Exit Sub
End If
Dim objReader As New StreamReader(VRuta)
VDelimitador = Chr(9) ‘Separador Tab
Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
arrText.Add(sLine)
End If
Loop Until sLine Is Nothing
objReader.Close()
objStreamWriter = New StreamWriter(“C:\” & VBanco & “-” & VMes & “.txt”)
Me.txtLog.Visible = True
j = 0
For Each sLine In arrText
‘Console.WriteLine(sLine)
objStreamWriter.WriteLine(VBanco & VDelimitador & arrText(j))
Me.txtLog.Text = arrText(j)
j = j + 1
Next
‘Console.ReadLine()
objStreamWriter.Close()
Else
lblerror.Visible = True
lblerror.Text = “Seleccione el Banco”
Exit Sub
End If
End Sub