Здравейте,

имам таблица в Аксес 2003, която съдържа колона с думи. Задачата е да обработя всяка дума така, че като резултат да получа буквите, от които е направена думата, но в разбъркан ред. Например ако пише "захар", резултатът да бъде нещо от сорта "аархз"

Предварително благодаря !

ми лесно става само трябва да напишеш код които го прави

Съдържаниет е скрито
Влезте за да го видите

Много ти благодаря, но за напред не си прави труд да пишеш такива отговори, защото очевидно служат само да поизлъскат самочувствието ти ! (или може би имаш много свободно време?)

А ако съм сбъркал форума, само ми кажете и ще си обера крушите

Съдържаниет е скрито
Влезте за да го видите

Ми то едва ли има подходящ форум за такова питане.
Правиш си програма/подпрограма или както се нарича там в Аксес, която обхожда редовете, извлича текста, размесва буквите, и записва резултата отново в същото поле от където го е изтеглила.
За MySQL - външната програма може да бъде и на Perl и на C и на каквото се сетиш.

Bеer? Mоre?

Съдържаниет е скрито
Влезте за да го видите

Въх, много си обидчив бе....
Хем искаш ъкъл за нещо, извини ме, елементарно, хем се праиш на обиден...

Ще си направиш една таблица от типа ID, text1, reordertext. ID тип number(integer) не си спомням точно как беше в Аксес, другите две полета са от тип varchar, т.е текстови.
Ще си направиш енда форма, на която ще поставиш един бутон. И на бутона ще му присвоиш действие On_Click. Там вече ще си напиш кодец. Ще използваш един recordset, който ще ти обхожда думите и ще разбърка буквите. Разбърканите букви на думата ще ги присвоиш към един стринг, който ще го запишеш в полето реордертекст.

Имаш си таблица с колона 'text'.
В 'Modules' си правиш един module, и в него си правиш една функция:

function randomizeLetters(text as String) as String

  Dim result as String

  'implement randomizing and write it in the result variable

  

  randomizeLetters = result

End Function

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... ;)