Predmet:Find and Replace
Imam jednu staru bazu koju sam iz dBase-a uvezao u Access i nakon uvoza latinična slova čČ ćĆ đĐ Å¡Å Å¾Å½ su mi se prikazivala kao ~^ }] |\ {[ `@. Bazu sam kopirao u Excell i sa Find and Replace uspio sam sve popraviti osim ~ u ć. Znak ~ naredba Find and Replace jednostavno ne prepoznaje. Kako je baza velika i ima puno slova za mjenjati da bi se to radilo ručno dali ima kako rjeÅ¡enje.
Hvala
PreuzmiIzvorni kôd (vbnet):Public Function Izmijeni(ImeTabele As String, ZnakUBazi As String, Zamjena As String) As Variant
'*******************************************
'Ime: Izmijeni (Function)
'Sadržaj: Promjena znaka ~ u slovo
'Autor: ZXZ
'Datum: 09 06, 2010, 09:54:46
'Adresa: Tuzla BiH
'Email: zxz@icentar.ba
'Ulazni parametri:Ime tabele,Znak koji '
'treba mijenjati i znak u koji se mijenja
'Izlazni parametri:Nema
'Microsoft dao 3.1-Referenca
'*******************************************
Dim Db As Database
Dim Rs As Recordset
Dim Podatak As String
Dim I As Integer
Dim N As Integer
Dim Promjena As Boolean
'On Error GoTo Greska
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(ImeTabele)
Do While Not Rs.EOF
For I = 0 To Rs.Fields.Count - 1
If Format$(Rs.Fields(I)) <> "" Then
Podatak = Rs.Fields(I).Value
Else
Podatak = ""
End If
For N = 1 To Len(Podatak)
If Mid(Podatak, N, 1) = ZnakUBazi Then
Mid(Podatak, N) = Zamjena
Rs.Edit
Rs.Fields(I).Value = Podatak
Promjena = True
End If
Next N
Podatak = ""
Next I
If Promjena = True Then
Promjena = False
Rs.Update
End If
Rs.MoveNext
Loop
Izlaz:
Exit Function
Greska:
'GreskaB (Err.Number)
Resume Izlaz
Kraj:
End Function
Pozdrav
Ovaj post je ureden
3
puta. Posljednja izmjena 07.09.2010 08:16 od strane zxz.