Nekada davno sam uradio 'Konvertovanje iz kodne strane YUSCII u Serbian(Latin, Serbia) 1250, pa ti prepravi prema svojim potrebama
Code:
'Konvertovanje iz kodne strane YUSCII u Serbian(Latin, Serbia) 1250
For n = 1 To Len(Tekst)
If Mid(Tekst, n, 1) = "{" Then
Mid(Tekst, n, 1) = Chr(154)
End If
If Mid(Tekst, n, 1) = "|" Then
Mid(Tekst, n, 1) = Chr(240)
End If
'~
If Mid(Tekst, n, 1) = "~" Then
Mid(Tekst, n, 1) = Chr(232)
End If
'}
If Mid(Tekst, n, 1) = "}" Then
Mid(Tekst, n, 1) = Chr(230)
End If
If Mid(Tekst, n, 1) = "`" Then
Mid(Tekst, n, 1) = Chr(158)
End If
If Mid(Tekst, n, 1) = "[" Then
Mid(Tekst, n, 1) = Chr(138)
End If
If Mid(Tekst, n, 1) = "\" Then
Mid(Tekst, n, 1) = Chr(208)
End If
'^
If Mid(Tekst, n, 1) = "^" Then
Mid(Tekst, n, 1) = Chr(200)
End If
']
If Mid(Tekst, n, 1) = "]" Then
Mid(Tekst, n, 1) = Chr(198)
End If
If Mid(Tekst, n, 1) = "@" Then
Mid(Tekst, n, 1) = Chr(142)
End If
Next n
rgdrajko