Este artículo comparte principalmente el código de funciones para el reemplazo de ASP y el ahorro de imágenes remotas.
ASP utiliza funciones para reemplazar y guardar imágenes remotas, completar las funciones de recopilar y extraer imágenes automáticamente, juzgar automáticamente repetir imágenes en la función, analizar de manera inteligente la ruta del enlace y convertirla en una dirección relativa y guardarla en el directorio de sitios web usted. especificado. Al mismo tiempo, este código también es una función de procesamiento importante en el programa de colección.
- FunctionRePlacesSaveremoteFile (Constr, StrinStallDir, Strchanneldir, Savetf, Tisturl)
- Ifconstr = $ false $ orconstr = orstrinstallDir = orstrchanneldir = entonces entonces
- ReemplazarveremoteFile = constructor
- Extinción
- Endif
- DimTempstr, Temptr2, Temptr3, RE, Matches, Match, Tempppi, TempArray, TempArray2
- Setre = newregexp
- Re.ignorecase = True
- Re.global = verdadero
- Re.pattern =]>>
- SetMatches = re.execute (construcción)
- Foreachmatchinmatches
- Iftempstr <> entonces
- Temptr = tempttr & $ array $ & match.Value
- Demás
- Tempttr = match.Value
- Endif
- Próximo
- Iftempstr <> entonces
- TempArray = Split (Temptrtr, $ Array $)
- Tempttr =
- Fortempi = 0toubound (temparray)
- Re.pattern = src/s*=/s*.+?/. (Gif | jpg | bmp | jpeg | psd | png | svg | dxf | wmf | tiff)
- SetMatches = re.execute (temparray (tempi))
- Foreachmatchinmatches
- Iftempstr <> entonces
- Temptr = tempttr & $ array $ & match.Value
- Demás
- Tempttr = match.Value
- Endif
- Próximo
- Próximo
- Endif
- Iftempstr <> entonces
- Re.pattern = src/s*=/s*
- Tempttr = re.replace (tempttr,)
- Endif
- SetMatches = nada
- Setre = nada
- Iftempstr = orisNull (tempttr) = trueThen
- ReemplazarveremoteFile = constructor
- Extinción
- Endif
- Tempttr = reemplazar (tempttr ,,)
- Tempttr = reemplazar (tempttr, ',)
- Tempttr = reemplazar (tempttr ,,)
- DIMREMOTFILEURL, SAVEPATH, PATHTemp, DTNOW, STRFILENAME, STRFILETYPE, ARRSAVEFILENAME, RANNUM, ARR_PATH
- Dtnow = ahora ()
- Ifsavetf = Truethen
- SavePath = strchanneldir &/y año (dtnow) y derecha (0 y mes (dtnow), 2) &////
- Respuesta. Ruta de enlace de escritura: & SavePath &
- Arr_path = split (savePath,/)
- Pathtemp =
- Fortempi = 0toUbound (arr_path)
- Iftempi = 0then
- Pathtemp = arr_path (0) &/
- A lourfeMpi = Ubound (arr_path) entonces
- Salir
- Demás
- Pathtemp = pathtemp & arr_path (tempi) &//
- Endif
- Ifcheckdir (pathtemp) = falsethen
- IfMakenewsDir (Pathtemp) = falsethen
- Savetf = falso
- Salir
- Endif
- Endif
- Próximo
- Endif
- 'Eliminar imágenes duplicadas
- TempArray = Split (Temptrtr, $ Array $)
- Tempttr =
- Fortempi = 0toubound (temparray)
- Ifinstr (lcase (tempttr), lcase (tempray (temppi))) <1Then
- TEMPRTR = TEMPRESTR & $ ARRAY $ & TEMPARRAY (TEMPPI)
- Endif
- Próximo
- Tempttr = right (temptr, len (temptr) -7)
- TempArray = Split (Temptrtr, $ Array $)
- 'Convertir la dirección de la imagen relativa
- Tempttr =
- Fortempi = 0toubound (temparray)
- TEMPRTR = TEMPREST & $ Array $ y definititeUrl (TempArray (Temppi), Tisturl)
- Próximo
- Tempttr = right (temptr, len (temptr) -7)
- Tempttr = reemplazar (tempttr, chr (0),)
- TEMPArray2 = Split (TEMPRTR, $ Array $)
- Tempttr =
- 'Reemplazo/guardado de la imagen
- Setre = newregexp
- Re.ignorecase = True
- Re.global = verdadero
- Fortempi = 0toubound (temparray2)
- RemoteFileUrl = TempArray2 (Tempi)
- IfremoteFileUrl <> $ false $ andsavetf = TRUETHEN'SAVE Imagen
- ArrsaveFileName = Split (RemoteFileUrl ,.)
- strfileType = lcase (arrsaveFileName (Ubound (arrsaveFileName))) 'Tipo de archivo
- IfstrFileType = AspostrFileType = AsaorStrfileType = AspxorStrfileType = cerorStrfileType = cdxorStrfileType = exeorStrfileType = rarostrfileType = Zipthen
- Subeadfiles =
- ReemplazarveremoteFile = constructor
- Extinción
- Endif
- Aleatorizar
- Rannum = int (900*rnd) +100
- strfilename = año (dtnow) y derecha (0 y mes (dtnow), 2) & derecha (0 & día (dtnow), 2) y derecha (0 y hora (dtnow), 2) y derecha (0 & minuto (dtnow), 2) y derecha (0 y segundo (dtnow), 2 ) & Right (0 y segundo (dtnow), 2) & rannum &. & strfiletype
- Re.pattern = TempArray (Tempi)
- IfsaveremoteFile (SavePath & strfileName, RemoteFileUrl) = Truethen
- '**************************************
- Pathtemp = savePath & strfilename
- Constr = re.replace (Constr, Pathtemp)
- Re.pattern = strinstalldir & strchanneldir &/
- UploadFiles = uploadFiles & | & re.replace (SavePath & strFileName,)
- Demás
- Pathtemp = RemoteFileUrl
- Constr = re.replace (Constr, Pathtemp)
- 'UploadFiles = uploadFiles & | & RemoteFileUrl
- Endif
- ElsefremotefileUrl <> $ false $ ysavetf = falsethen 'no guarda la imagen
- Re.pattern = TempArray (Tempi)
- Constr = re.replace (construye, remoteFileUrl)
- UploadFiles = uploadFiles & | & RemoteFileUrl
- Endif
- Próximo
- Setre = nada
- Ifuploadfiles <> entonces
- UploadFiles = right (uploadfiles, len (uploadfiles) -1)
- Endif
- ReemplazarveremoteFile = constructor
- Función final
Descripción del parámetro de la función:
Construye: la cadena para reemplazar
Parámetros: saveTF: si se debe guardar el archivo, falso no se guarda, verdadero guardar
Parámetros: Tisturl: dirección actual de la página web
Lo anterior es el código para el reemplazo de ASP y el guardado de la función de imagen remota, espero que sea útil para el aprendizaje de todos.