Gambas France BETA


Pas de compte ? Incription

?Créer une Fonction avec Retour dans un Tableau?

Ce sujet est résolu.

1
AuteurMessages
Reivillo#1 Posté le 3/4/2013 à 14:02:47
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjours à Tous.

J'aimerai créer une Fonction,
du genre Split, qui me garde
le séparateur en Retour.
Ou peut-on voir le Source,
de la Fonction Split....
dont j'aurai pu prendre exemple.

Merci.
Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Reivillo#2 Posté le 4/4/2013 à 15:36:06
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Re.

Pour arriver a mes fins,
voilà ce que j'ai fais.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
' Gambas class file

PUBLIC SUB Form_Open()

DIM asReturn AS String[]
DIM sInReturn AS STRING

asReturn = _MySplit("Gambas$is$good", "$")
FOR EACH sInReturn IN asReturn
PRINT sInReturn
NEXT

END

PUBLIC FUNCTION _MySplit(MyString AS STRING, MySepar AS STRING) AS String[]

DIM asTab AS NEW String[]
DIM iPosChar AS INTEGER = 1
DIM iLenMyString AS INTEGER
DIM sChar AS STRING

asTab.Add("")
iLenMyString = Len(MyString)
WHILE iPosChar <= iLenMyString
sChar = Mid$(MyString, iPosChar, 1)
IF sChar <> MySepar THEN
asTab[asTab.count - 1] = asTab[asTab.count - 1] & sChar
ELSE
asTab.Add(sChar)
ENDIF
INC iPosChar
WEND
RETURN asTab

END

Des remarques?

Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
1