home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / tema / ArcData / www / download / cz2ascii.ave < prev    next >
Text File  |  1999-12-17  |  1KB  |  29 lines
  1. '------------------------------------------------------
  2. ' cz2ascii
  3. '------------------------------------------------------
  4. ' ┌Φel:    odstranφ z °et∞zce Φeskou diakritiku (p°evßdφ Φesk² °et∞zec na cesky)
  5. ' Pou₧itφ: 
  6. ' V ArcView otev°ete tenro skript, pojmenujte jej cz2ascii a zkompilujte jej.
  7. ' Tento skript lze nap°φklad volat z jinΘho skriptu pou₧itφm requestu Run, nap°.
  8. '     asciiName = av.run("cz2ascii","ΦeÜtina")
  9. ' kde "ΦeÜtina" je p°evßd∞n² °et∞zec.
  10. '
  11. '------------------------------------------------------
  12.  
  13. czName = self.Get(0)
  14. TransList = {{"┴","A"},{"ß","a"},{"╚","C"},{"Φ","c"},{"╔","E"},{"Θ","e"},
  15. {"╠","E"},{"∞","e"},{"╧","D"},{"∩","d"},{"╥","N"},{"≥","n"},{"è","S"},
  16. {"Ü","s"},{"Ä","Z"},{"₧","z"},{"ì","T"},{"¥","t"},{"≤","o"},{"╙","o"},
  17. {"╪","R"},{"°","r"},{"┌","U"},{"·","u"},{"═","I"},{"φ","i"},{"²","y"},
  18. {"▌","Y"},{"∙","u"},{"┘","U"},{"▄","U"},{"╦","E"},{"╓","O"},{"ⁿ","u"},{"÷","o"},
  19. {"δ","e"}}
  20.  
  21. for each itm in TransList
  22.   ASCIIName = czName.Substitute(itm.get(0),itm.get(1))
  23.   czName = ASCIIName
  24. end
  25.  
  26. return (czName)
  27.  
  28.  
  29.