#include <stdlib.h>
void ordenarProductos(producto productoArray[], int pLength);

int comparar_producto(const void *p1, const void *p2) {
	articulo *art1 = (articulo*)p1;
	articulo *art2 = (articulo*)p2;
	return strcmp(art1->nombre, art2->nombre);
}

void ordenarProductos(producto productoArray[], int pLength) {
	
	qsort(productoArray[], pLength, sizeof(producto), comparar_producto);
}

void sortByName(producto productoArray[], int pLength) {
	char *temp;
	int i, j;
	for (i = 0; i<pLength - 1; i++) {
		for (j = i + 1; j<pLength; j++) {
			if (strcmp(productoArray[i].nombre, productoArray[j].nombre) > 0) {
				temp = productoArray[i].nombre;
				productoArray[i] = productoArray[j];
				*productoArray[j].nombre = *temp;
			}
		}
	}
	for (int i = 0; i<pLength; i++)
		cout << i << ". Nombre: " << productoArray[i].nombre << ", Codigo de barras: " << productoArray[i].codigobarras
		<< ", Precio: " << productoArray[i].precio << ". Fecha de entrada: " << productoArray[i].fechaentrada.dia
		<< "/" << productoArray[i].fechaentrada.mes << "/" << productoArray[i].fechaentrada.anyo << endl;
}

void sortByName(producto productoArray[], int pLength);

if campos(0)=linea then valorbuscado=campos(1): exit do

Function UserExit(sType, sWhen, sDetail, bSkip)
	oLogging.CreateEntry "entered UserExit ", LogTypeInfo
	UserExit = Success
End Function

Function GetOfflineComputername()
On Error Goto 0

	If oEnvironment.Item("OSVERSION")="WinPE" Then
		Dim CompName : CompName = ""
		Dim oshell
		Dim fich, fs, fich2, ncx, linea
			'ubicación de ficheros
			nombre_fich="c:\fichero1.txt"
			nombre_fich2="c:\fichero2.txt"

			set oshell=createobject("WScript.shell")
			set fs=createobject("scripting.FileSystemObject")

			'comprobamos que existan los ficheros
			if not fs.FileExists(nombre_fich) then
				wscript.echo "no existe el fichero "& nombre_fich
				WScript.Quit 4
			end if

			if not fs.FileExists(nombre_fich2) then
				wscript.echo "no existe el fichero "& nombre_fich2
				WScript.Quit 4
			end if

			'Si hemos llegado hasta aquí es que existe y lo abrimos
			set fich=fs.OpenTextFile (nombre_fich, 1, "True" )

			' Almacenamos en la variable linea el contenido de fichero1
			Do While fich.atEndOfStream <> True
				linea=fich.ReadLine
			Loop

			set fich2=fs.OpenTextFile (nombre_fich2, 1, "True" )

			Do While fich2.atEndOfStream <> True
				linea2=fich2.ReadLine

			' Parseamos los campos
				campos = split(linea2,"#")
					for each b in campos
					next
					if campos(0)=linea then valorbuscado=campos(1): exit do
				Loop

		fich.close


		CompName = valorbuscado

	GetOfflineComputername = CStr(CompName)
		
End Function

Function UserExit(sType, sWhen, sDetail, bSkip)
	oLogging.CreateEntry "entered UserExit ", LogTypeInfo
	UserExit = Success
End Function

Function GetOfflineComputername()
On Error Goto 0

	If oEnvironment.Item("OSVERSION")="WinPE" Then
		Dim CompName : CompName = ""
		Dim ret, sOldSystem : sOldSystem = ""
		For Each drv In Array("C", "D", "E", "F")
			If ofso.FileExists(drv & ":\windows\system32\config\system") Then
				sOldSystem = drv & ":\windows\system32\config\system"
				Exit For
			End If
		Next
		oLogging.CreateEntry "Mounting Offline registry " & sOldSystem, LogTypeInfo
		ret = oShell.Run ("reg load HKLM\z " & sOldSystem, 0, True)
		If ret = 0 Then
			CompName = oShell.RegRead("HKLM\z\ControlSet001\Services\Tcpip\Parameters\Hostname")
			If CompName <> "" Then
				oLogging.CreateEntry "Found old computername '" & CompName & "'", LogTypeInfo
			Else
				oLogging.CreateEntry "Old computername name could not be found", LogTypeWarning
			End If
		Else
			oLogging.CreateEntry "Could not mount offline registry " & sOldSystem, LogTypeWarning
		End If
		oShell.Run "REG UNLOAD HKLM\Z", 0, True		
	Else
		CompName = oShell.ExpandEnvironmentStrings("%Computername%")
	End If

	GetOfflineComputername = CStr(CompName)
		
End Function

dim oshell
dim fich, fs, fich2, ncx, linea

'ubicación de ficheros
nombre_fich="c:\fichero1.txt"
nombre_fich2="c:\fichero2.txt"

set oshell=createobject("WScript.shell")
set fs=createobject("scripting.FileSystemObject")

'comprobamos que existan los ficheros
if not fs.FileExists(nombre_fich) then
  wscript.echo "no existe el fichero "& nombre_fich
  WScript.Quit 4
end if

if not fs.FileExists(nombre_fich2) then
  wscript.echo "no existe el fichero "& nombre_fich2
  WScript.Quit 4
end if

'Si hemos llegado hasta aquí es que existe y lo abrimos
set fich=fs.OpenTextFile (nombre_fich, 1, "True" )

' Almacenamos en la variable linea el contenido de fichero1
Do While fich.atEndOfStream <> True
  linea=fich.ReadLine
' Ahora mostramos la línea leída
  wscript.echo linea
Loop

set fich2=fs.OpenTextFile (nombre_fich2, 1, "True" )

Do While fich2.atEndOfStream <> True
  linea2=fich2.ReadLine
' Ahora mostramos la línea leída
  wscript.echo linea2
' Parseamos los campos
  campos = split(linea2,"#")
  for each b in campos
    wscript.echo "valor del campo: "&b
  next
Loop

wscript.echo linea
wscript.echo linea2

fich.close