Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
private static void ExtractFileWith7Z(string sourceArchive, string destination)
{
string zPath = "7z.exe"; //add to proj and set CopyToOuputDir
try
{
ProcessStartInfo pro = new ProcessStartInfo();
pro.WindowStyle = ProcessWindowStyle.Hidden;
pro.UseShellExecute = false;
pro.RedirectStandardOutput = true;
pro.FileName = zPath;
pro.Arguments = string.Format("x \"{0}\" -y -o\"{1}\"", sourceArchive, destination);
Process x = Process.Start(pro);
// string output = x.StandardOutput.ReadToEnd();
x.WaitForExit();
}
catch (System.Exception Ex)
{
throw Ex;
}
}
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Data.OleDb;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
DataTable dt = new DataTable();
OleDbConnection oConexion = new OleDbConnection() ;
OleDbCommand ocom=new OleDbCommand();
// OleDbCommandBuilder cBuilder = new OleDbCommandBuilder(r)
oConexion.ConnectionString = WindowsFormsApplication1.Properties.Settings.Default.conexionBBDD;
oConexion.Open();
ocom.Connection = oConexion;
ocom.CommandText = ("SELECT * FROM Contactos");
OleDbDataAdapter oadapter = new OleDbDataAdapter(ocom);
dataGridView1.DataSource = dt;
oadapter.Fill(dt);
oConexion.Close();
}
txt con una línea) cya_0002
Dim xlapp
Dim xllibro
Dim xlhoja
xlapp = CreateObject("Excel.Application")
xllibro = xlapp.workbooks.add
xlhoja = xllibro.worksheets("Hoja1")
xlapp.visible = True
Dim consejero As String = Mid(linea, 202, 5)
Dim stn As OleDb.OleDbConnection
Dim cmd As OleDb.OleDbCommand ' escritor
Dim lector As OleDb.OleDbDataReader ' lector
stn = New OleDb.OleDbConnection
stn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Usuario\Desktop\prueba\TABLAS_PRUEBA.accdb") ' conexion
stn.Open()
cmd = New OleDb.OleDbCommand
cmd.Connection = stn
cmd.CommandText = "select DENOMINACION FROM TABLAS_PRUEBA WHERE CONSEJERO = " & consejero & " "
lector = cmd.ExecuteReader ' lector conectado con lector del escritor
Do While lector.Read
Console.WriteLine({0}, lector ("DENOMINACION"))
Loop
xlhoja.cells(fila, 4).value = LO QUE LEA DEL ACCESS..
lector.Close()
Module Module1
Sub Main()
Dim stn As OleDb.OleDbConnection ' conector
Dim cmd As OleDb.OleDbCommand ' escritor
Dim lector As OleDb.OleDbDataReader ' lector
stn = New OleDb.OleDbConnection ' nuevo conector
stn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\PEPE\Desktop\centros_correcciones.accdb") ' conexion
stn.Open() ' abrir conexion
cmd = New OleDb.OleDbCommand ' nuevo escritor
cmd.Connection = stn ' escritor conectado con conector
cmd.CommandText = "select Código_centro FROM Hoja1"
lector = cmd.ExecuteReader ' lector conectado con lector del escritor
Do While lector.Read
Console.WriteLine("{0} ", lector("Código_centro"))
Loop
Console.ReadLine()
lector.Close()
Console.WriteLine("{0} filas modificadas", cmd.ExecuteNonQuery)
Console.ReadLine()
stn.Close()
End Sub
End Module
Sub leer_pdf_y_crear_excel(path, ficheroscarpeta, path2, ficheroscarpeta2, openfolderdialog, openfolderdialog2)
' Dim fichero
Dim xlapp
Dim xllibro
Dim xlhoja
Dim i As Integer = 1
'Dim fichero
Dim archivo As String = "*.pdf"
Dim listbox1 As ListBox
xlapp = CreateObject("Excel.Application")
xllibro = xlapp.workbooks.add
xlhoja = xllibro.worksheets("Hoja1")
xlapp.visible = True
ficheroscarpeta = System.IO.Directory.GetFiles(path)
ficheroscarpeta2 = System.IO.Directory.GetFiles(path2)
For Each fichero As String In ficheroscarpeta
listbox1. = fichero
xlhoja.cells(i, 1) = fichero
i += 1
Next
For Each fichero As String In ficheroscarpeta2
xlhoja.cells(i, 1) = fichero
i += 1
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim OpenFolderDialog As New FolderBrowserDialog
Dim path As String
Dim ficheroscarpeta() As String
Dim OpenFolderDialog2 As New FolderBrowserDialog
Dim path2 As String
Dim ficheroscarpeta2() As String
OpenFolderDialog.SelectedPath = "C:\Users\pepe\Desktop"
OpenFolderDialog2.SelectedPath = "C:\Users\pepe\Desktop"
If OpenFolderDialog.ShowDialog() = DialogResult.OK Then
path = OpenFolderDialog.SelectedPath
End If
If OpenFolderDialog2.ShowDialog() = DialogResult.OK Then
path2 = OpenFolderDialog2.SelectedPath
leer_pdf_y_crear_excel(path, ficheroscarpeta, path2, ficheroscarpeta2, OpenFolderDialog, OpenFolderDialog2)
End If
End Sub
End Class
tabla0.horizontalalignment = Element.ALIGN_RIGHT
tabla0.totalwidth = 180.0F
tabla0.lockedwidth = True
tabla0.spacingafter = 20.0F
tabla1.setwidths(New Single() {27.5F, 80.0F, 20.0F, 22.0F})
tabla1.totalwidth = 565.0F ' ANCHURA TOTAL DE LA TABLA
tabla1.LockedWidth = True
tabla1.spacingafter = 6.5F
tabla2.setwidths(New Single() {22.0F, 30.0F, 115.0F, 15.0F, 33.0F})
tabla2.totalwidth = 560.0F
tabla2.LockedWidth = True
tabla2.splitrows = True
tabla2.HeaderRows = 1 ' LA FILA 1 DE LA TABLA2 SE CONVIERTE EN LA CABECERA DE LA TABLA Y SIEMPRE QUE SALTA DE PAGINA APARECERÁ ESTA FILA.
'tabla6.setwidths(New Single() {24.0F, 30.0F, 114.0F, 30.0F, 34.0F})
'tabla6.totalwidth = 539.0F
'tabla6.LockedWidth = True
tabla7.setwidths(New Single() {22.0F, 31.0F, 119.0F, 17.7F, 30.5F})
tabla7.totalwidth = 565.0F
tabla7.LockedWidth = True
tabla3.SetWidths(New Single() {46.5F, 27.5F, 16.5F, 26.5F, 39.5F, 12.5F, 27.0F, 38.5F})
tabla3.TotalWidth = 565.0F
tabla3.LockedWidth = True
tabla3.SpacingBefore = 6.0F
For i = numreg - 8 To numreg ' CONTAMOS LAS ULTIMAS 8 LINEAS DEL TXT
Dim micelda = New pdf.PdfPCell(New Phrase(b(i).ToString(), New Font(Font.ITALIC, 8.0F, Font.NORMAL)))
micelda.FixedHeight = 54.0F
micelda.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
micelda.VerticalAlignment = iTextSharp.text.Element.ALIGN_MIDDLE
tabla3.addcell(micelda)
Next
Public Class EVENTOS_ITEXT '
Inherits PdfPageEventHelper
Public Overrides Sub OnEndPage(writer As PdfWriter, document As Document) ' OVERRIDES reemplaza el método por el método personalizado
contador_paginas_total += 1
'If contador_paginas_total = 1 Then
' tabla6.WriteSelectedRows(0, -1, 28.2, 552, writer.DirectContent())
'tabla5.writeselectedrows(0, -1, 28.4, 132, writer.DirectContent())
'tabla3.WriteSelectedRows(0, -1, 28.4, 190, writer.DirectContent())
' tabla0.WriteSelectedRows(0, -1, 315, 700, writer.DirectContent())
' tabla1.WriteSelectedRows(0, -1, 28.4, 600, writer.DirectContent())
'End If
'If contador_paginas_total = 1 Then
tabla7.WriteSelectedRows(0, -1, 22.0, 571.5, writer.DirectContent())
'tabla5.writeselectedrows(0, -1, 28.4, 132, writer.DirectContent())
tabla3.WriteSelectedRows(0, -1, 22, 195, writer.DirectContent())
tabla0.WriteSelectedRows(0, -1, 325, 720, writer.DirectContent())
tabla1.WriteSelectedRows(0, -1, 22, 620, writer.DirectContent())
Dim cPDFCreator As clsPDFCreator
cPDFCreator = New clsPDFCreator
For i = 0 To a.Length - 1
Console.WriteLine("a(i)={0}, b(i)={1}", a(i), b(i))
Next
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
For i = 0 To a.Length step 1
Console.WriteLine("a(i)={0}, b(i)={1}", a(i), b(i))
Next