import Foundation
let pattern = #"(\(\"STRCONNEXION\"\)?.=?.*)\"(.*?)\""#
let regex = try! NSRegularExpression(pattern: pattern, options: .anchorsMatchLines)
let testString = #"""
<SCRIPT LANGUAGE="VBScript" RUNAT=Server>
'Session_OnStart S'ex�cute la premi�re fois qu'un utilisateur utilise une page de votre application
'Session_OnEnd S'ex�cute en cas de d�passement du d�lai de la session d'un utilisateur ou quand celui-ci quitte votre application
'Application_OnStart S'ex�cute une fois lorsque la premi�re page de votre application est utilis�e pour la premi�re fois par un utilisateur
'Application_OnEnd S'ex�cute une fois lors de l'arr�t du serveur Web
Sub Session_OnStart
'Session("STRCONNEXION")="wowoowow"
Session("STRCONNEXION")="wowoowow"
'Session("STRCONNEXION")="wowoowow"
Session.Timeout = 240
Session("Connected") = 0 ' Utilisateur n'est pas encore authentifie
Session("langue") = "ita"
'Set Session("SiteId")
HostToSiteId
End Sub
Sub Session_OnEnd
Session.Abandon
end Sub
Sub Application_OnStart
Application("Titre") = "GVI"
' Composants COM
Application("AccesBannieres.Banniere") = "AccesBannieresGVI.Banniere"
Application("AccesBatch.Batch") = "AccesBatchGVI.Batch"
Application("AccesCheck.Check") = "AccesCheckGVI.Check"
Application("AccesCibles.Cibles") = "AccesCiblesGVI.Cibles"
Application("AccesCibles.Produits") = "AccesCiblesGVI.Produits"
Application("AccesCommande.Commande") = "AccesCommandeGVI.Commande"
Application("AccesCommunication.Communication") = "ACGVI.Communication"
Application("AccesDepotVente.GestionCommande") = "AccesDepotVenteGVI.GestionCommande"
Application("AccesDepotVente.InfosVo") = "AccesDepotVenteGVI.InfosVo"
Application("AccesDepotVente.Mails") = "AccesDepotVenteGVI.Mails"
Application("AccesEncheres.Administrateur") = "AccesEncheresGVI.Administrateur"
Application("AccesEncheres.Cloture") = "AccesEncheresGVI.Cloture"
Application("AccesEncheres.ListeCriteres") = "AccesEncheresGVI.ListeCriteres"
Application("AccesEncheres.Utilisateur") = "AccesEncheresGVI.Utilisateur"
Application("AccesFicheVO.FicheVO") = "AccesFicheVOGVI.FicheVO"
Application("AccesInscriptions.Inscriptions") = "AIGVI.Inscriptions"
Application("AccesListeVO.AlerteEmail") = "AccesListeVOGVI.AlerteEmail"
Application("AccesListeVO.ListeCriteres") = "AccesListeVOGVI.ListeCriteres"
Application("AccesListeVO.ListeCriteresDV") = "AccesListeVOGVI.ListeCriteresDV"
Application("AccesListeVO.ListeVO") = "AccesListeVOGVI.ListeVO"
Application("AccesListeVO.ListeVODV") = "AccesListeVOGVI.ListeVODV"
Application("AccesLogin.Login") = "AccesLoginGVI.Login"
Application("AccesMix.Mix") = "AccesMixGVI.Mix"
Application("AccesParameters.Parameters") = "AccesParametersGVI.Parameters"
Application("AccesPrevente.Prevente") = "AccesPreventeGVI.Prevente"
Application("AccesPromotions.Administration") = "AccesPromotionsGVI.Administration"
Application("AccesPromotions.Promotions") = "AccesPromotionsGVI.Promotions"
Application("AccesReport.Reports") = "AccesReportGVI.Reports"
Application("AccesStopAffaire.Administrateur") = "ASAGVI.Administrateur"
Application("AccesStopAffaire.ListeCriteres") = "ASAGVI.ListeCriteres"
Application("AccesStopAffaire.StopAffaire") = "ASAGVI.StopAffaire"
Application("AccesSuiviHisto.SuiviHisto") = "AccesSuiviHistoGVI.SuiviHisto"
Application("AccesVenteParLot.Administrateur") = "AVPLGVI.Administrateur"
Application("AccesVenteParLot.ListeCriteres") = "AVPLGVI.ListeCriteres"
Application("AccesVenteParLot.VenteParLot") = "AVPLGVI.VenteParLot"
Application("AccesVisibilite.Visibilite") = "AccesVisibiliteGVI.Visibilite"
' Nombre de r�sultat par page dans la liste VO
Application("PageToResult") = 20
End Sub
Sub HostToSiteId
Dim audiHost, vwHost, currentHost
audiHost = "www.audi-lineos.it"
vwHost = "www.vgilineos.it"
currentHost = Request.ServerVariables("HTTP_HOST")
If currentHost = audiHost Then
Session("SiteId") = 1
Session("SiteName") = "Audi"
End If
If currentHost = vwHost Then
Session("SiteId") = 2
Session("SiteName") = "VW"
End If
If currentHost = "localhost:8080" Then
Session("SiteId") = 2
Session("SiteName") = "VW"
End If
End Sub
</SCRIPT>
"""#
let stringRange = NSRange(location: 0, length: testString.utf16.count)
let matches = regex.matches(in: testString, range: stringRange)
var result: [[String]] = []
for match in matches {
var groups: [String] = []
for rangeIndex in 1 ..< match.numberOfRanges {
let nsRange = match.range(at: rangeIndex)
guard !NSEqualRanges(nsRange, NSMakeRange(NSNotFound, 0)) else { continue }
let string = (testString as NSString).substring(with: nsRange)
groups.append(string)
}
if !groups.isEmpty {
result.append(groups)
}
}
print(result)
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Swift 5.2, please visit: https://developer.apple.com/documentation/foundation/nsregularexpression