READ TEXT

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
hainis
Δημοσιεύσεις: 5
Εγγραφή: 11 Ιουν 2003 09:13
Τοποθεσία: ATHENS

READ TEXT

Δημοσίευση από hainis » 11 Ιουν 2003 09:23

ΞΕΡΕΙ ΚΑΠΟΙΟΣ ΝΑ ΜΟΥ ΠΕΙ ΠΩΣ ΝΑ ΔΙΑΒΑΣΩ ΕΝΑ ΚΕΙΜΕΝΟ.
ΝΑ ΤΟ ΔΙΒΑΖΩ ΛΕΞΗ ΛΕΞΗ. ΔΗΛΑΔΗ ΑΥΤΟ ΠΟΥ ΘΕΛΩ ΕΙΝΑΙ ΝΑ ΔΙΑΒΑΖΩ ΑΠΟ ΚΕΝΟ ΣΕ ΚΕΝΟ.
ΙΣΩΣ ΜΕ ASCII?
ΕΧΕΙ ΚΑΝΕΙΣ ΚΑΠΟΙΑ ΙΔΕΑ? :idea:

ΕΥΧΑΡΙΣΤΩ... :lol:

ΝΙΚΟΣ

Άβαταρ μέλους
telxina
Δημοσιεύσεις: 301
Εγγραφή: 29 Ιούλ 2002 20:36
Τοποθεσία: Moschato, Pireas
Επικοινωνία:

READ TEXT

Δημοσίευση από telxina » 11 Ιουν 2003 12:37

Xrisimopiises se mia loopa tin edoli instr ke perne tis lexeis se array.

Kinos:

Dim myarray(1000)
Dim neokeno, paliokeno, i As Integer

paliokeno = 0
neokeno = 1
Do Until neokeno = 0
neokeno = InStr(paliokeno + 1, Text1, " ")
If neokeno = 0 Then Exit Do
i = i + 1
myarray(i) = Mid(Text1, paliokeno + 1, neokeno - paliokeno)
paliokeno = neokeno
Loop
i=i+1
myarray(i) = Right(Text1, Len(Text1) - paliokeno)



Opou text1 i variable pou periexei to keimeno sou. :hammer:

Άβαταρ μέλους
hainis
Δημοσιεύσεις: 5
Εγγραφή: 11 Ιουν 2003 09:13
Τοποθεσία: ATHENS

READ TEXT

Δημοσίευση από hainis » 12 Ιουν 2003 07:41

THANKS telxina.
ΔΟΥΛΕΨΕ ΑΥΤΟ ΠΟΥ ΜΟΥ ΕΙΠΕΣ ΑΛΛΑ ΤΟ ΠΡΟΒΛΗΜΑ ΠΟΥ ΑΝΤΙΜΕΤΟΠΙΖΩ ΕΙΝΑΙ ΟΤΙ ΤΑ ΚΕΝΑ ΔΕΝ ΕΙΝΑΙ ΠΑΝΤΑ ΕΝΑ ΟΥΤΕ ΜΕ ΚΑΘΟΡΙΣΜΕΝΟ ΑΡΙΘΜΟ δηλ. ΛΕΞΗ ΜΕ ΛΕΞΗ ΕΧΕΙ ΕΝΑ ΚΕΝΟ 'Η ΤΡΙΑ 'Η ΠΕΝΤΕ. ΚΑΠΩΣ ΕΤΣΙ. ΕΓΩ ΛΟΙΠΟΝ ΤΑ ΚΕΝΑ ΔΕΝ ΤΑ ΘΕΛΩ. ΘΕΛΩ ΜΟΝΟ ΤΑ STRING ΧΩΡΙΣ ΚΕΝΑ. Ο ΚΟΔΙΚΑΣ ΠΟΥ ΜΟΥ ΕΓΡΑΨΕΣ ΠΕΡΝΕΙ ΚΑΙ ΤΑ ΚΕΝΑ ΚΑΙ ΤΑ ΒΑΖΕΙ ΣΤΟΝ ΠΙΝΑΚΑ ΤΙ ΜΠΟΡΩ ΝΑ ΚΑΝΩ?

ΕΥΧΑΡΙΣΤΩ. ΝΙΚΟΣ

Άβαταρ μέλους
telxina
Δημοσιεύσεις: 301
Εγγραφή: 29 Ιούλ 2002 20:36
Τοποθεσία: Moschato, Pireas
Επικοινωνία:

READ TEXT

Δημοσίευση από telxina » 12 Ιουν 2003 14:40

Eftaseeeeeeeeee

Dim myarray(1000)
Dim neokeno, paliokeno, i As Integer

paliokeno = 0
neokeno = 1
Do Until neokeno = 0
neokeno = InStr(paliokeno + 1, Text1, " ")
If neokeno = 0 Then Exit Do
i = i + 1
myarray(i) = Mid(Text1, paliokeno + 1, neokeno - paliokeno)
paliokeno = neokeno
If myarray(i) = " " Then i = i - 1
Loop
i = i + 1
myarray(i) = Right(Text1, Len(Text1) - paliokeno)

Άβαταρ μέλους
hainis
Δημοσιεύσεις: 5
Εγγραφή: 11 Ιουν 2003 09:13
Τοποθεσία: ATHENS

READ TEXT

Δημοσίευση από hainis » 02 Ιούλ 2003 11:11

MEXRI EDO LOIPON OLA KALA. AYTO POY DEN MPORO NA BRO TORA EINAI TA STRING POY EXO STON PINAKA NA TA KANO COMPARE ME AYTO POY EXO STHN METABLHTH KAI EAN EINAI TRUE NA TO EKTYPONO.
KANO COMPARE ME INSTR(1,TEXT1,TEXT2) ALLA EAN BREI ESTO KAI THN MISI LEKSEI p.x. TEXT1=NIKOLAS TEXT2=NIKO TOTE MOU TO BGAZEI TRUE EGO THELO AKRIBOS TO STRING NA EINAI IDIO.
KAI POS MPORO NA TYPOSO TA STOIXEIA TOU ARRAY STHN SEIRA?
DEBUG.PRINT MYARRAY(I) TYPONEI KATHETA. STH SEIRA?

THANKS .....

Άβαταρ μέλους
Bugman
Δημοσιεύσεις: 362
Εγγραφή: 01 Ιούλ 2003 20:39
Τοποθεσία: Πρέβεζα
Επικοινωνία:

READ TEXT

Δημοσίευση από Bugman » 02 Ιούλ 2003 15:02

Το πιο ωραίο κόλπο είναι:
καταχωρείς τις λέξεις με ένα διάστημα επιπλέον και τέλος συγκρίνεις μια άλλη λέξη με ένα διάστημα επιπλέον (και σε αυτήν)!
Για σκέψου,υπάρχει περίπτωση να έχεις μια καταχώριση με διάστημα στην μέση; (όχι! γιατί αυτό είναι δυο καταχωρήσεις)

για να διαγράψουμε τα αρχικά διαστήματα υπάρχει η εντολή trim

Dim MyString, TrimString
MyString = " <-Trim-> " ' Initialize string.
TrimString = LTrim(MyString) ' TrimString = "<-Trim-> ".
TrimString = RTrim(MyString) ' TrimString = " <-Trim->".
TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-Trim->".
' Using the Trim function alone achieves the same result.
TrimString = Trim(MyString) ' TrimString = "<-Trim->".

όσο για το άλλο ερώτημα βάλε το κόμα σε κάθε 4 στοιχεία και χωρίς αυτό σε κάθε πέμπτο. Έτσι με διαδοχικά print θα τυπώνεις σε πέντε στήλες.

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες