Publicité
+ Répondre à la discussion
Page 2 sur 2 PremièrePremière 12
Affichage des résultats 21 à 22 sur 22
  1. #21
    Membre habitué
    Profil pro
    Inscrit en
    janvier 2009
    Messages
    112
    Détails du profil
    Informations personnelles :
    Âge : 46
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : janvier 2009
    Messages : 112
    Points : 101
    Points
    101

    Par défaut

    Salut,

    Un fonction qui convertie une chaine de caractères en quelque chose de compatible avec le système d'url rewrite que je viens de présenter :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
     
    '-- on entre ce que l'on veut : "Hébé oui voilà !"
    function strRewrite(sStr)
    	Dim sSpeciaux : sSpeciaux = "&#{}[]()-|_@°=+*%!?,.;/:'$^"
    	Dim sAccent : sAccent = "àâäéèêëìîïöôùüûçÀÂÄÉÈÊËÌÎÏÖÔÙÜÛÇ"
    	Dim sReplace : sReplace = "aaaeeeeiiioouuucAAAEEEEIIIOOUUUC"
    	Dim i, j 
    	Dim sCharverif
    	        '-- on remplace chaque accent
    		for i = 1 to len(sAccent)
    			sCharverif = ""
    			sCharverif = Mid(sAccent,i,1)
    			if InStr(sStr,sCharverif) then
    				sStr = replace(sStr, sCharverif, Mid(sReplace,i,1))
    			end if
    		next
    		'-- puis, on retire les spéciaux
    		for j = 1 to len(sSpeciaux)
    			sCharverif = ""
    			sCharverif = Mid(sSpeciaux,j,1)
    			if InStr(sStr,sCharverif) then
    				sStr = replace(sStr,sCharverif,"")
    			end if
    		next
    	'-- enfin on remplace tous les " " par des "-"
    	sStr = trim(sStr)
    	sStr = replace(sStr," ", "-")
    	sStr = trim(sStr)
     
    	strRewrite = sStr
    end function
     
    '-- elle retournera dans cette exemple : "hebe-oui-voila"

  2. #22
    Modérateur
    Avatar de roro06
    Profil pro
    Inscrit en
    avril 2007
    Messages
    1 473
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : avril 2007
    Messages : 1 473
    Points : 1 938
    Points
    1 938

    Par défaut

    Bonjour

    Les constantes de VBscript :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
    228
    229
    230
    231
    232
    233
    234
    235
    236
    237
    238
    239
    240
    241
    242
    243
    244
    245
    246
    247
    248
    249
    250
    251
    252
    253
    254
    255
    256
    257
    258
    259
    260
    261
    262
    263
    264
    265
    266
    <%
    '--------------------------------------------------------------------
    ' Microsoft ADO
    '
    ' (c) 1996 Microsoft Corporation.  All Rights Reserved.
    '
    '
    '
    ' ADO constants include file for VBScript
    '
    '--------------------------------------------------------------------
     
    '---- CursorTypeEnum Values ----
    Const adOpenForwardOnly = 0
    Const adOpenKeyset = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3
     
    '---- CursorOptionEnum Values ----
    Const adHoldRecords = &H00000100
    Const adMovePrevious = &H00000200
    Const adAddNew = &H01000400
    Const adDelete = &H01000800
    Const adUpdate = &H01008000
    Const adBookmark = &H00002000
    Const adApproxPosition = &H00004000
    Const adUpdateBatch = &H00010000
    Const adResync = &H00020000
    Const adNotify = &H00040000
     
    '---- LockTypeEnum Values ----
    Const adLockReadOnly = 1
    Const adLockPessimistic = 2
    Const adLockOptimistic = 3
    Const adLockBatchOptimistic = 4
     
    '---- ExecuteOptionEnum Values ----
    Const adRunAsync = &H00000010
     
    '---- ObjectStateEnum Values ----
    Const adStateClosed = &H00000000
    Const adStateOpen = &H00000001
    Const adStateConnecting = &H00000002
    Const adStateExecuting = &H00000004
     
    '---- CursorLocationEnum Values ----
    Const adUseNone = 1
    Const adUseServer = 2
    Const adUseClient = 3
    Const adUseClientBatch = 3
     
    '---- DataTypeEnum Values ----
    Const adEmpty = 0
    Const adTinyInt = 16
    Const adSmallInt = 2
    Const adInteger = 3
    Const adBigInt = 20
    Const adUnsignedTinyInt = 17
    Const adUnsignedSmallInt = 18
    Const adUnsignedInt = 19
    Const adUnsignedBigInt = 21
    Const adSingle = 4
    Const adDouble = 5
    Const adCurrency = 6
    Const adDecimal = 14
    Const adNumeric = 131
    Const adBoolean = 11
    Const adError = 10
    Const adUserDefined = 132
    Const adVariant = 12
    Const adIDispatch = 9
    Const adIUnknown = 13
    Const adGUID = 72
    Const adDate = 7
    Const adDBDate = 133
    Const adDBTime = 134
    Const adDBTimeStamp = 135
    Const adBSTR = 8
    Const adChar = 129
    Const adVarChar = 200
    Const adLongVarChar = 201
    Const adWChar = 130
    Const adVarWChar = 202
    Const adLongVarWChar = 203
    Const adBinary = 128
    Const adVarBinary = 204
    Const adLongVarBinary = 205
     
    '---- FieldAttributeEnum Values ----
    Const adFldMayDefer = &H00000002
    Const adFldUpdatable = &H00000004
    Const adFldUnknownUpdatable = &H00000008
    Const adFldFixed = &H00000010
    Const adFldIsNullable = &H00000020
    Const adFldMayBeNull = &H00000040
    Const adFldLong = &H00000080
    Const adFldRowID = &H00000100
    Const adFldRowVersion = &H00000200
    Const adFldCacheDeferred = &H00001000
     
    '---- EditModeEnum Values ----
    Const adEditNone = &H0000
    Const adEditInProgress = &H0001
    Const adEditAdd = &H0002
     
    '---- RecordStatusEnum Values ----
    Const adRecOK = &H0000000
    Const adRecNew = &H0000001
    Const adRecModified = &H0000002
    Const adRecDeleted = &H0000004
    Const adRecUnmodified = &H0000008
    Const adRecInvalid = &H0000010
    Const adRecMultipleChanges = &H0000040
    Const adRecPendingChanges = &H0000080
    Const adRecCanceled = &H0000100
    Const adRecCantRelease = &H0000400
    Const adRecConcurrencyViolation = &H0000800
    Const adRecIntegrityViolation = &H0001000
    Const adRecMaxChangesExceeded = &H0002000
    Const adRecObjectOpen = &H0004000
    Const adRecOutOfMemory = &H0008000
    Const adRecPermissionDenied = &H0010000
    Const adRecSchemaViolation = &H0020000
    Const adRecDBDeleted = &H0040000
     
    '---- GetRowsOptionEnum Values ----
    Const adGetRowsRest = -1
     
    '---- PositionEnum Values ----
    Const adPosUnknown = -1
    Const adPosBOF = -2
    Const adPosEOF = -3
     
    '---- enum Values ----
    Const adBookmarkCurrent = 0
    Const adBookmarkFirst = 1
    Const adBookmarkLast = 2
     
    '---- MarshalOptionsEnum Values ----
    Const adMarshalAll = 0
    Const adMarshalModifiedOnly = 1
     
    '---- AffectEnum Values ----
    Const adAffectCurrent = 1
    Const adAffectGroup = 2
    Const adAffectAll = 3
     
    '---- FilterGroupEnum Values ----
    Const adFilterNone = 0
    Const adFilterPendingRecords = 1
    Const adFilterAffectedRecords = 2
    Const adFilterFetchedRecords = 3
    Const adFilterPredicate = 4
     
    '---- SearchDirection Values ----
    Const adSearchForward = 0
    Const adSearchBackward = 1
     
    '---- ConnectPromptEnum Values ----
    Const adPromptAlways = 1
    Const adPromptComplete = 2
    Const adPromptCompleteRequired = 3
    Const adPromptNever = 4
     
    '---- ConnectModeEnum Values ----
    Const adModeUnknown = 0
    Const adModeRead = 1
    Const adModeWrite = 2
    Const adModeReadWrite = 3
    Const adModeShareDenyRead = 4
    Const adModeShareDenyWrite = 8
    Const adModeShareExclusive = &Hc
    Const adModeShareDenyNone = &H10
     
    '---- IsolationLevelEnum Values ----
    Const adXactUnspecified = &Hffffffff
    Const adXactChaos = &H00000010
    Const adXactReadUncommitted = &H00000100
    Const adXactBrowse = &H00000100
    Const adXactCursorStability = &H00001000
    Const adXactReadCommitted = &H00001000
    Const adXactRepeatableRead = &H00010000
    Const adXactSerializable = &H00100000
    Const adXactIsolated = &H00100000
     
    '---- XactAttributeEnum Values ----
    Const adXactCommitRetaining = &H00020000
    Const adXactAbortRetaining = &H00040000
     
    '---- PropertyAttributesEnum Values ----
    Const adPropNotSupported = &H0000
    Const adPropRequired = &H0001
    Const adPropOptional = &H0002
    Const adPropRead = &H0200
    Const adPropWrite = &H0400
     
    '---- ErrorValueEnum Values ----
    Const adErrInvalidArgument = &Hbb9
    Const adErrNoCurrentRecord = &Hbcd
    Const adErrIllegalOperation = &Hc93
    Const adErrInTransaction = &Hcae
    Const adErrFeatureNotAvailable = &Hcb3
    Const adErrItemNotFound = &Hcc1
    Const adErrObjectInCollection = &Hd27
    Const adErrObjectNotSet = &Hd5c
    Const adErrDataConversion = &Hd5d
    Const adErrObjectClosed = &He78
    Const adErrObjectOpen = &He79
    Const adErrProviderNotFound = &He7a
    Const adErrBoundToCommand = &He7b
    Const adErrInvalidParamInfo = &He7c
    Const adErrInvalidConnection = &He7d
    Const adErrStillExecuting = &He7f
    Const adErrStillConnecting = &He81
     
    '---- ParameterAttributesEnum Values ----
    Const adParamSigned = &H0010
    Const adParamNullable = &H0040
    Const adParamLong = &H0080
     
    '---- ParameterDirectionEnum Values ----
    Const adParamUnknown = &H0000
    Const adParamInput = &H0001
    Const adParamOutput = &H0002
    Const adParamInputOutput = &H0003
    Const adParamReturnValue = &H0004
     
    '---- CommandTypeEnum Values ----
    Const adCmdUnknown = &H0008
    Const adCmdText = &H0001
    Const adCmdTable = &H0002
    Const adCmdStoredProc = &H0004
     
    '---- SchemaEnum Values ----
    Const adSchemaProviderSpecific = -1
    Const adSchemaAsserts = 0
    Const adSchemaCatalogs = 1
    Const adSchemaCharacterSets = 2
    Const adSchemaCollations = 3
    Const adSchemaColumns = 4
    Const adSchemaCheckConstraints = 5
    Const adSchemaConstraintColumnUsage = 6
    Const adSchemaConstraintTableUsage = 7
    Const adSchemaKeyColumnUsage = 8
    Const adSchemaReferentialContraints = 9
    Const adSchemaTableConstraints = 10
    Const adSchemaColumnsDomainUsage = 11
    Const adSchemaIndexes = 12
    Const adSchemaColumnPrivileges = 13
    Const adSchemaTablePrivileges = 14
    Const adSchemaUsagePrivileges = 15
    Const adSchemaProcedures = 16
    Const adSchemaSchemata = 17
    Const adSchemaSQLLanguages = 18
    Const adSchemaStatistics = 19
    Const adSchemaTables = 20
    Const adSchemaTranslations = 21
    Const adSchemaProviderTypes = 22
    Const adSchemaViews = 23
    Const adSchemaViewColumnUsage = 24
    Const adSchemaViewTableUsage = 25
    Const adSchemaProcedureParameters = 26
    Const adSchemaForeignKeys = 27
    Const adSchemaPrimaryKeys = 28
    Const adSchemaProcedureColumns = 29
    %>


    " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir."
    (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...)

    Chuck Norris comprend JC Van Damme.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •