/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
mid(asc(text1.text),x,1
Fra : diztort


Dato : 28-04-02 20:25

i = len(text1.text)
for x = 1 to i
text2.text = text2.text + mid(asc(text1.text), x, 1)
next


hvad er der i vejen med det her ???

den skriver ikke asciikoden for dem allesammen... men kun for det første
tegn



 
 
Stephan Marc Hansen (28-04-2002)
Kommentar
Fra : Stephan Marc Hansen


Dato : 28-04-02 20:56

i = Len(Text1.Text)
For x = 1 To i
Text2.Text = Text2.Text & Asc(Mid(Text1.Text, x, 1))
Next i

burde klare tricket ;)





Mikkel Bundgaard (28-04-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 28-04-02 20:58

diztort <diztort@hotmail.com> wrote:
> i = len(text1.text)
> for x = 1 to i
> text2.text = text2.text + mid(asc(text1.text), x, 1)
> next
>
> hvad er der i vejen med det her ???
>
> den skriver ikke asciikoden for dem allesammen... men kun for det
> første tegn
Hej diztort

Prøv med
i = len(text1.text)
for x = 1 to i
text2.text = text2.text & asc(mid(text1.text, x, 1))
next

Hvis du ønsker at få alle asciikoden for alle bogstaver skrevet
direkte efter hinanden.
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum



diztort (29-04-2002)
Kommentar
Fra : diztort


Dato : 29-04-02 16:10

duuuuh.. det var bare et plus o til et & ..(jeg havde i mellemtiden fundet
ud af det med rækefølgen på mid og asc....)

taktaktak



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste