|
Тема |
Re: Как се обработва текст в Аксес [re: putnik] |
|
Автор |
dess.v (непознат
) |
|
Публикувано | 13.09.07 15:45 |
|
|
Pravish si tablica:
Key AutoNumber
t Text
dobavqsh edin modul sys slednia code:
Public Function GetChars(text As String) As String
Dim i As Long
Dim result As String
For i = Len(text) To 1 Step -1
If IsUnique(result, Mid(text, i, 1)) Then
result = result + Mid(text, i, 1)
End If
Next
GetChars = result
End Function
Public Function IsUnique(text As String, char As String) As Boolean
Dim i As Long
Dim result As Boolean
result = True
For i = 1 To Len(text)
If Mid(text, i, 1) = char Then
result = False
Exit For
End If
Next
IsUnique = result
End Function
i nakraia si pravish edno query:
SELECT key, t, GetChars(t)
FROM Table1;
i gotovo... ;)
|
| |
|
|
|