Separare numere cu Punct

#1
bullet404

Posted 19 January 2014 - 23:34

Junior Member

Grup: Members
Posts: 47
Înscris: 01.07.2013

Deci, se da 1x label, functie label1.text = "101"
cum pot face ca acest label sa afiseze 1.0.1 ?

Back to top

#2
nexusm

Posted 21 January 2014 - 09:37

Senior Member

Grup: Senior Members
Posts: 2,793
Înscris: 07.07.2011

daca intr-adevar este o eticheta "Label" atunci aceasta nu are proprietatea Label.Text ci Label.Caption.
pentru ce ai tu de facut:
Dim xSTR$
For I = 1 To Len(Label1) - 1
xSTR = xSTR & Mid$(Label1, I, 1) & "."
Next
xSTR = xSTR & Right$(Label1, 1)
Label1 = xSTR

Back to top

#3
bullet404

Posted 24 January 2014 - 00:49

Junior Member

Grup: Members
Posts: 47
Înscris: 01.07.2013

e vorba de visual basic.. codul tau nu e bun..

folosesc visual studio 2013..

Back to top

#4
paulicaFX

Posted 01 February 2014 - 09:56

Member

Grup: Members
Posts: 792
Înscris: 08.08.2011

incearca String.Split("") dar nu stiu daca va merge

Back to top

#5
dani.user

Posted 01 February 2014 - 15:29

Guru Member

Grup: Senior Members
Posts: 30,238
Înscris: 24.02.2007

Label1.Text =  String.Join(".", (From c In Label1.Text).ToArray())

Back to top

#6
bullet404

Posted 04 February 2014 - 17:03

Junior Member

Grup: Members
Posts: 47
Înscris: 01.07.2013

dani.user, on 01 februarie 2014 - 15:29, said:

Label1.Text = String.Join(".", (From c In Label1.Text).ToArray())

Error 1 Expression of type 'String' is not queryable. Make sure you are not missing an assembly reference and/or namespace import for the LINQ provider. C:\Users\Popescu Ionut\Documents\Visual Studio 2013\Projects\Metin2Kid\Metin2KID\Form1.vb 73 55 Metin2KID

mai exact problema e aici: Label1.Text = String.Join(".", (From c In Label1.Text).ToArray())

Back to top

#7
bullet404

Posted 04 February 2014 - 17:42

Junior Member

Grup: Members
Posts: 47
Înscris: 01.07.2013

sorry for dublepost.. dar rezolvarea vine tot de la mine !

label_vers.Text = 100

For numar = 0 To label_vers.Text.Length
       Dim nr = label_vers.Text.IndexOf(numar)
       label_vers.Text = label_vers.Text.Replace(nr, nr & ".")
Next

label_vers.Text = "v" & label_vers.Text.Remove(5) 'sterge ultimul punct ( era 1.0.0. )

rezultat final:  v1.0.0

Back to top

#8
dani.user

Posted 04 February 2014 - 18:16

Guru Member

Grup: Senior Members
Posts: 30,238
Înscris: 24.02.2007

In eroarea postata iti zice clar ce ii lipseste, dar na, mai trec vreo 5 ani pana intelegi ce-i acolo

Back to top

#9
MarianG

Posted 25 February 2014 - 20:08

be that as it may

Grup: Moderators
Posts: 31,443
Înscris: 10.08.2005

bullet404, on 24 ianuarie 2014 - 00:49, said:

e vorba de visual basic.. codul tau nu e bun.. Posted Image

folosesc visual studio 2013..

Ba e bun, VISUAL BASIC se opreste la versiunea 6, restul fiind pe platforma dotNET
Greseala iti apartine ca n-ai specificat de la inceput versiunea pe care o folosesti.

http://en.wikipedia....or_Applications
http://en.wikipedia....sual_Basic_.NET

bullet404, on 04 februarie 2014 - 17:42, said:

sorry for dublepost.. dar rezolvarea vine tot de la mine ! Posted Image

label_vers.Text = 100

For numar = 0 To label_vers.Text.Length
   Dim nr = label_vers.Text.IndexOf(numar)
   label_vers.Text = label_vers.Text.Replace(nr, nr & ".")
Next

label_vers.Text = "v" & label_vers.Text.Remove(5) 'sterge ultimul punct ( era 1.0.0. )

rezultat final:  v1.0.0

Ca daca ai fi mers pana la penultima cifra, asa cum apare in codul postat de @nexusm
iti lua cineva capul si te acuza de furt intelectual,

Edited by MarianG, 25 February 2014 - 20:10.

Back to top

Anunturi

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

Separare numere cu Punct

#1 bullet404 Posted 19 January 2014 - 23:34

#2 nexusm Posted 21 January 2014 - 09:37

#3 bullet404 Posted 24 January 2014 - 00:49

#4 paulicaFX Posted 01 February 2014 - 09:56

#5 dani.user Posted 01 February 2014 - 15:29

#6 bullet404 Posted 04 February 2014 - 17:03

#7 bullet404 Posted 04 February 2014 - 17:42

#8 dani.user Posted 04 February 2014 - 18:16

#9 MarianG Posted 25 February 2014 - 20:08

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
bullet404

Posted 19 January 2014 - 23:34

#2
nexusm

Posted 21 January 2014 - 09:37

#3
bullet404

Posted 24 January 2014 - 00:49

#4
paulicaFX

Posted 01 February 2014 - 09:56

#5
dani.user

Posted 01 February 2014 - 15:29

#6
bullet404

Posted 04 February 2014 - 17:03

#7
bullet404

Posted 04 February 2014 - 17:42

#8
dani.user

Posted 04 February 2014 - 18:16

#9
MarianG

Posted 25 February 2014 - 20:08