> ... ... ... >If Len(strSel) > 0 Then > For i = 1 To Len(strSel) > strNums = strNums + Str(Asc(Mid(strSel, i))) > Next i > strNums = LTrim(strNums) > If Len(strNums) > 255 Then > LastFourChar = Mid(strNums, 252, 4) > strNums = Left(strNums, 251) + Left(LastFourChar, 4 - In... > ... ... ... probuh... ;-)) proc tak strasne slozite?? tohle "minimakro": ------------------------------------------- Sub MAIN MsgBox Str$(Asc(Selection$())), "ANSI Value", 0 End Sub ------------------------------------------- proste kdykoliv ukaze dekadickou hodnotu znaku VPRAVO od cursoru a nic nemusi byt vybrano nebo vybirano... kdo to potrebuje casto, da si ho na ikonku. :) Bye, Spock.
This archive was generated by hypermail 2.1.2 : 03. 09. 2001, 23:06 CEST