Obtener nombre archivo Asp

Si queremos Saber como se llama la pagina que actualmente estamos ejecutando en asp lo podemos hacer con la siguiente funcion de asp

<%

Function NombrePagina()

ruta = Request.ServerVariables("URL") 'recoge la ruta completa

ruta = Split(ruta,"/") 'convierte cada separación señalada por / en un elemento de un vector

nombre = ruta(UBound(ruta)) 'recogemos el último elemento de ese vector...

NombrePagina = nombre

end function

%>

Fecha juliana en VB.Net

Fecha juliana en Visual Basic .Net

¿Que es la fecha Juliana? Pues la fecha juliana es el número de dia del año. Por ejemplo, el 1 de enero seria el dia 1, el 1 de Febrero el 32... y así sucesivamente (para más información podéis ir al enlace de la Wikipedia para concer más acerca de la fecha Juliana).

En Visual Basic .Net su cálculo es muy sencillo (en el ejemplo mostramos la fecha juliana de la fecha actual que tengamos en el sistema):

Public Class Form1

Public Function DevolverDiaJuliano(ByVal dtFecha As Date) As Integer

 Dim dtPrimeroEnero As Date
 Dim dtDiaActual As Date

 dtPrimeroEnero = DateSerial(Year(dtFecha), 1, 1)
 dtDiaActual = dtFecha
 Return CInt(DateDiff(DateInterval.Day, dtPrimeroEnero, dtDiaActual)) + 1

End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 MessageBox.Show(DevolverDiaJuliano(Now.Date))

End Sub
End Class

Contraseña Aleatoria SQL SERVER

Seguidamente pondremos el código de como crear una contraseña aleatoria a partir de una base de datos sql server.

declare @password as varchar(30),

@longitud as integer

set @password=''

set @longitud =10

select @password=@password+char(n) from

(select top @longitud number as n from master..spt_values

where type='p' and ((number between 48 and 57)or

(number between 65 and 89)

or (number between 97 and 122) )

order by newid()

) as t


Hemos definido 2 variables:
password: Es donde guardaremos el password creado
longitud: Es la logitud deseada que queremos que tenga el password.

Ir a un registro de un subformulario ACCESS

Que es lo que queremos??

Pues bien desde un cuadro combinado del Formulario Principal quiero que me situe el enfoque en el registro con el valor de un campo especifico que yo le pasaré.


Codigo Propuesto:

Dim MiReg As Object

Set MiReg = SubRegistros.Form.RecordsetClone

MiReg.FindFirst "CODIGO=" & CODIGO & ""

If Not MiReg.NoMatch Then
SubRegistros.SetFocus
SubRegistros.Form.Bookmark = MiReg.Bookmark
End If

Explicacion del codigo:

Copiamos el recorset del subformulario:
Set MiReg = SubRegistros.Form.RecordsetClone

Buscamos el primer registro que coincidaMiReg.FindFirst "CODIGO=" & CODIGO & ""

Si lo encotramos Ponemos el foco en el y pasamos el book mark al formulario.If Not MiReg.NoMatch Then
SubRegistros.SetFocus
SubRegistros.Form.Bookmark = MiReg.Bookmark
End If

Existe fichero vb.net

Para saber si un fichero existe o no solo tenemos que usar el metodo Exists de la clase System.IO.File

En el siguient ejemplo se muestra como usar el metodo:

Dim file_path as String
file_path = "c:/carpeta"
If System.IO.File.Exists(file_path & "\Form1.vb") Then
messagebox.show("Form1.vb exists","aviso")
Else
messagebox.show("Form1.vb No exists","aviso")
End If

Encotrar Extension archivo PHP

Esta función se utiliza para buscar la extensión de archivo:

function findexts ($filename)
{
$filename = strtolower($filename) ;
$exts = split("[/\\.]", $filename) ;
$n = count($exts)-1;
$exts = $exts[$n];
return $exts;
}


Si usted quiere cambiar el nombre de un archivo de carga todavía se necesita para mantener la extensión. Podemos utilizar esta función para encontrarlo. Una vez encontrado que puede ser añadido al final de un número al azar o una marca de tiempo (u otro sistema de nombres que usted elija) que se utiliza como nombre de archivo.

Expoliación del código


Básicamente lo que hace el código es strtolower primero con cambiar la extensión (y el nombre del archivo completo) en minúsculas, sólo para mantenerlo limpio.

$filename = strtolower($filename) ;

A continuación están separando el nombre del archivo en una división matriz utilizando. Por su división en el [.]

$exts = split("[/\\.]", $filename) ;

Buscamos el último elemento de la matriz:

$n = count($exts)-1;

La extensión será el último elemento de la matriz, que es lo que devuelve.

$exts = $exts[$n];