select sur une série de n caractères identiques

[Papy214]

Bonjour

Je coince un peu sur une requête. Mais elle n'est peut-être pas possible.
En fait je cherche à sélectionner toutes les lignes dont une colonne contient une valeur texte avec le même caractères répété de 1 à n fois. Par exemple, toutes les lignes de ma table pour lesquelles la colonne 'chaine' contient '-' ou '--' ou '---', etc.

Avec une expression régulière, ça donnerait un truc du genre '[-]+'

Existe-il une notion de répétition sur un caractère ?

Papy

[mikedavem]

Il est possible d'utiliser les regexp avec SQL Server soit via le CLR depuis 2005 soit avec les objets OLE et la librairie VBScript.RegExp

++

[Papy214]

J'ai effectivement trouvé une implémentation de vbscript avec un fonction RegexMatch mais je n'arrive pas à la faire fonctionner :-(

Code :

1
2
3
4
 
SELECT *
FROM chaines 
WHERE dbo.RegexMatch('[-]+', chaines.texte) <> 0

ça me renvoie toutes les lignes pour lesquelles la valeur texte contient au moins un -

Surement un problème de syntaxe mais je ne vois pas lequel

[mikedavem]

Pourrais t'on avoir le detail de votre implementation du regexp ?

++

[Papy214]

J'ai trouvé ça sur le site http://www.simple-talk.com/sql/t-sql...ion-workbench/

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
 
USE [Amadeus]
GO
 
/****** Object:  UserDefinedFunction [dbo].[RegexMatch]    Script Date: 11/03/2011 14:26:08 ******/
SET ANSI_NULLS ON
GO
 
SET QUOTED_IDENTIFIER ON
GO
 
CREATE FUNCTION [dbo].[RegexMatch]
    (
      @pattern VARCHAR(2000),
      @matchstring VARCHAR(MAX)--Varchar(8000) got SQL Server 2000
    )
RETURNS INT
/* The RegexMatch returns True or False, indicating if the regular expression matches (part of) the string. (It returns null if there is an error).
When using this for validating user input, you'll normally want to check if the entire string matches the regular expression. To do so, put a caret at the start of the regex, and a dollar at the end, to anchor the regex at the start and end of the subject string.
*/ 
AS BEGIN
    DECLARE @objRegexExp INT,
        @objErrorObject INT,
        @strErrorMessage VARCHAR(255),
        @hr INT,
        @match BIT
 
    SELECT  @strErrorMessage = 'creating a regex object'
    EXEC @hr= sp_OACreate 'VBScript.RegExp', @objRegexExp OUT
    IF @hr = 0 
        EXEC @hr= sp_OASetProperty @objRegexExp, 'Pattern', @pattern
        --Specifying a case-insensitive match 
    IF @hr = 0 
        EXEC @hr= sp_OASetProperty @objRegexExp, 'IgnoreCase', 1
        --Doing a Test' 
    IF @hr = 0 
        EXEC @hr= sp_OAMethod @objRegexExp, 'Test', @match OUT, @matchstring
    IF @hr <> 0 
        BEGIN
            RETURN NULL
        END
    EXEC sp_OADestroy @objRegexExp
    RETURN @match
   END
 
GO