begin process at 2010 02 10 13:48:32
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Compression & Split

 > FAIRE UN SPLIT EN DELPHI

FAIRE UN SPLIT EN DELPHI


 Information sur la source

Note :
7,67 / 10 - par 6 personnes
7,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Compression & Split Niveau :Débutant Date de création :27/07/2001 Date de mise à jour :09/03/2009 17:47:51 Vu :12 009
Auteur : BinOff

Ecrire un message privé
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description


Source

  • function split(input:string;schar:char;s:integer):string;
  • var
  • i,n:integer;
  • schop: string;
  • begin
  • n := 1;
  • for i := 1 to length(input) do
  • begin
  • if (input[i] = schar) then
  • begin
  • inc(n);
  • if n = s then
  • split := schop
  • else
  • schop := '';
  • end
  • else
  • schop := schop + input[i];
  • end;
  • end; 
function split(input:string;schar:char;s:integer):string;
    var
       i,n:integer;
       schop: string;
    begin
       n := 1;
       for i := 1 to length(input) do
       begin
         if (input[i] = schar) then
         begin
           inc(n);
           if n = s then
           split := schop
           else
           schop := '';
           end
         else
           schop := schop + input[i];
         end;
    end;

 Conclusion

Pour utiliser cette fonction, il suffit de l'utiliser comme avec VB...

avar := split('Ceci est un texte',' ',2);
avar va ainsi valoir 'est'

Encore un autre exemple
avar := split('Ceci est|un texte','|',2);
avar va ainsi valoir 'un texte'



 Sources du même auteur

RÉCUPPÉRER LE NOM DU FICHIER D'UNE URL
FAIRE UN LIEN VERS UNE URL AVEC SHELLEXECUTE
RETROUVER UNE ANCIENNE SOURCE
UN REPLACE, COMME EN VB
Toutes les sources de BinOff

 Sources de la même categorie

Source avec Zip Source avec une capture DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN ... par FENETRES
FONCTION SPLIT par crackspider7676
Source avec Zip STREAMZIP par simonpelloquin
Source avec Zip MAKE CAB + CHECKLISTBOX par simonpelloquin
Source avec Zip Source avec une capture COMPRESSEUR JPEG par Gimli
Toutes les sources de la catégorie Compression & Split

Commentaires et avis

Commentaire de SuperSonic le 18/12/2002 00:07:57

J'ai essayé de faire comme dans l'exemple, mais lorsqu'il n'y a pas de second | dans mon texte ( par exemple ) cela me retourne ce qu'il y a avant le |.
avar := split('Ceci est|un texte','|',2);
avar va ainsi valoir ''Ceci est" et non "un texte".


Commentaire de fabiin le 19/08/2004 00:09:21

Ce split là semble fonctionner parfaitement :
http://delphi.about.com/cs/adptips2002/a/bltip1102_5.htm

Commentaire de Peone le 09/02/2006 10:17:16

Ce code est bien mais il a un petit defaut. Moi pour le moment je travaille le latex en delphi et je dois analyser ceci  "\begin{tabular}{c l r}"
il faudarait que je sorte de la chaine le c l r donc j'utilise cette fonction split avec {  comme separateur ==> \begin , tabular} et normalement c l r} en troiseme position

et ben non, il me splite encore le c l r} en tenant compte des espaces

y aurait-il moyen de modifier cette fonction pour qu'il ne tienne pas compte des espaces?

Commentaire de FENETRES le 14/02/2008 17:30:41

La fonction Split de VB "renvoie un tableau de base zéro à une dimension contenant le nombre spécifié de sous-chaînes."

Et sans vouloir contrarier FABIIN, il n'est pas nécessaire d'instancier un TStringList pour obtenir ce résultat !

http://www.delphifr.com/codes/DELPHI-PROCEDURE-SPLIT-SIMILAIRE-FONCTION-EPONYME-VB_45704.aspx

Commentaire de Bacterius le 16/02/2008 22:50:23

Bonjour,
Euh svp je suis un peu débutant, et à ce que j'ai compris, s représente le caractère de séparation, mais que représente "schar" ???
A bientôt...

Commentaire de Bacterius le 16/02/2008 22:55:13

Re,
excusez moi je viens de comprendre, s représente le split, et schar représente le caractère de split.
Merci, :)

Commentaire de Alkaaran le 09/03/2009 15:54:32 5/10

Cette fonction ne marche que si le dernier caractère est le séparateur, voici une version modifiée, testée et approuvée par ma prof :p

function split(input:string;schar:char;s:integer):string;
  var
    i,n:integer;
    schop: string;
begin
  n := 1;
  for i := 1 to length(input) do
  begin
    if (input[i] = schar) then
    begin
      if n = s then
        split := schop
      else
        schop := '';
      inc(n);
    end
    else
      schop := schop + input[i];
  end;
  if n = s then
    split := schop ;
end;

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


HTC Tattoo
Entre 9€ et 329€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,624 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)