¿Cómo traducir ubicaciones de archivos de estilo Windows y Mac?

Este sitio tiene una forma de traducir en una ubicación de red mac y abrirlo: enlace

Por lo tanto, puede guardarlo fácilmente como un servicio de texto y ser capaz de seleccionar una ubicación de red de Windows, hacer clic derecho en él y traducirlo y abrirlo.

Me imagino que podrías invertir la función y convertirla en una cadena de ubicación de red de Windows.

Aquí se explica cómo configurar un servicio de texto / acción rápida para convertir a una ruta de Mac y abrirlo en el Finder:

• Abre Automator
• Elija "Servicio" (llamado "Acción rápida" en macOS Mojave)
• Arrastra un elemento "Ejecutar AppleScript" de la biblioteca al área principal a la derecha.
• Copia y pega este AppleScript en él: enlace (no se formatearía correctamente aquí)
• Guárdalo en "Convertir y abrir ruta de Windows" o lo que quieras.
• Seleccione una ruta en una aplicación, haga clic con el botón derecho y busque el servicio que creó (podría estar en un submenú "Servicios")

Esto es lo que debería ver tu servicio de Automator:

Sé que esto es un intercambio antiguo, pero aún funciona. Bifurqué el código para mostrar un ejemplo de cómo convertir una ruta de acceso de unidad de red a un protocolo SMB con una dirección IP de servidor.

Esto es útil si los usuarios de Windows tienen una unidad de red con letras como W: \ a \ really \ tedious \ folder \ path

enlace

Gracias por el script original PenguinRob.

on searchReplace(theText, SearchString, ReplaceString)
    set OldDelims to AppleScript's text item delimiters
    set AppleScript's text item delimiters to SearchString
    set newText to text items of theText
    set AppleScript's text item delimiters to ReplaceString
    set newText to newText as text
    set AppleScript's text item delimiters to OldDelims
    return newText
end searchReplace

on run {input, parameters}

    set myClip to the input
    set mylocation to searchReplace(myClip, "<", "")
    set mylocation to searchReplace(mylocation, ">.", "")
    set mylocation to searchReplace(mylocation, ">", "")
    set mylocation to searchReplace(mylocation, "\", "/")
    set mylocation to "smb:" & mylocation
    # convert Windows network drive paths to SMB addresses EXAMPLE:
    set mylocation to searchReplace(mylocation, "smb:W:", "smb://10.0.0.1/shares")
    # check if the person who gave you the windows link used a lowercase drive letter:
    set mylocation to searchReplace(mylocation, "smb:w:", "smb://10.0.0.1/shares")
    # fix issue with spaces
    set mylocation to searchReplace(mylocation, " ", "%20")


    tell application "Finder"
        open location mylocation
    end tell

    # after setting the location, set Finder to topmost, or delete this section if you dont want that.
    tell application "Finder"
        activate
    end tell


    return input
end run