TextToPuhnro

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
Thudney
Newcomer
Posts: 26
Joined: Mon Aug 27, 2007 10:18 pm
Location: Finland
Contact:

TextToPuhnro

Post by Thudney »

Tämä functio tekee tekstistä numeron, esim 0800-microchip -> 0800-642762447
Syötteeksi pelkkä tekstiosuus.
Kannattaa koittaa omaa nickkiänsä ja hommata kyseinen puhelin numero itselleen.
Ja itse koodi:

Code: Select all

s$="microchip"
t$=TextToPuhnro(s)
Print "Syöte:"+s
Print "Tulos:"+t
WaitKey

'Tulos tallentuu tiedostoon mahdollista copypastea varten
f=OpenToWrite("muutos.txt")
WriteLine f,s
WriteLine f,t
CloseFile f

Function TextToPuhnro(b$)
Dim a$(9)
a(0)=" 0"
a(1)=".,?!-()@/_"
a(2)="abcäå"
a(3)="def"
a(4)="ghi"
a(5)="jkl£"
a(6)="mnoö"
a(7)="pqrs$"
a(8)="tuv"
a(9)="wxyz"

m$=Lower(b)
For e=0 To 9
  For d=1 To Len(a(e))
    w$=Mid(a(e),d,1)
    m=Replace(m,w,""+e)
  Next d
Next e

Return m
End Function
OT: Onko tässä potentiaalia mihinkään?
MrMonday
Advanced Member
Posts: 378
Joined: Fri Oct 10, 2008 2:35 pm

Re: TextToPuhnro

Post by MrMonday »

Hauska idea kieltämättä, mutta esmes nimimerkkinsä muuttaminen puhelinnumeroksi ei toimi jos nimimerkki on vaikka kolme merkkiä pitkä..
Siksi toiseksi, vähättelemättä aikaansaannostasi, käytännössä tuo härpäke on turha ja kolmanneksi, en tiedä onko "Esimerkit ja tutoriaalit" oikea paikka tälle, tosin sekin on miten asiaa katsoo..
EDIT:

Tosin johonkin salakirjoitus systeemiin tuosta voisi olla, jos vain halutuilla henkilöillä on funktio jolla kääntää random numerosarja selkokieleksi..

Post Reply