Pascal 'Split' De La Fonction

Je suis à coder un petit programme en pascal et j'ai eu un petit problème. Dans d'autres langues il y a une fonction appelée "split" ou "exploser" pour prendre une longue chaîne qui est ponctué par un caractère et des scissions de cette longue chaîne en plusieurs petites chaînes et les attribue à un tableau.
Voici ce que je veux dire, je voudrais faire ceci:

longstring:='Word1.Word2.Word3');

Split('.', longstring, OutPutVariable) ;

{ OutPutVariable[1] would be Word1}
{ OutPutVariable[2] would be Word2}
{ OutPutVariable[3] would be Word3}

Ce n'est pas vrai code, comme le "split" n'existe pas en pascal. Je pense qu'il existe dans Delphi bien que. Peut anypne m'aider avec ce problème? Désolé si c'est vraiment un problème facile, je suis nouveau en programmation

Vous taggés avec Delphi donc, si vous êtes sur Delphi XE ou plus tard, vous pouvez utiliser SplitString
Si non, que cela a été mis en œuvre à plusieurs reprises ici, DONC.
double possible de Comment scinder une chaîne de seulement dix caractères, par exemple"12345*45688" dans un tableau
pas de cette question est de plus en plus vers un analyseur d'expression avec plusieurs séparateurs.
Vous avez raison. Mauvais lien: stackoverflow.com/q/7491036/62576
Je dirais que c'est la dupe de stackoverflow.com/questions/2625707
double possible de découper une chaîne en un tableau de chaînes de caractères basé sur un délimiteur

InformationsquelleAutor user2832521 | 2013-11-14

8

Avec un TStringListprocédez comme suit:
```
procedure SplitText(aDelimiter: Char; const s: String; aList: TStringList);
begin
  aList.Delimiter := aDelimiter;
  aList.StrictDelimiter := True; // Spaces excluded from being a delimiter
  aList.DelimitedText := s;
end;
```
Remarque: Le StrictDelimiter propriété a été ajoutée dans D2006.

D'une autre manière:
```
procedure SplitText(const aDelimiter,s: String; aList: TStringList);
begin
  aList.LineBreak := aDelimiter;
  aList.Text := s;
end;
```
Pouvez utiliser plusieurs personnages comme un délimiteur.
- +1 idée similaire, mais votre mise en œuvre, c'est mieux. Sauf qu'il ne se compile pas et je voudrais ajouter un ASSERT(list<> nil); au début.
- Notez que DelimitedText comprend la manipulation de QuoteChar, de sorte qu'il n'est pas strictement match .net String.Split
- correct. Réglage list.QuoteChar := #0; permettrait d'éliminer cette possibilité, ou simplement utiliser le LineBreak procédure.
InformationsquelleAutor LU RD
5

Delphi RTL a déjà la fonction précise que vous avez besoin, SplitString de la System.StrUtils unité:
```
function SplitString(const S, Delimiters: string): TStringDynArray;
```
Documenté comme:

Divise une chaîne en différentes parties délimitées par la
les caractères délimiteurs.

SplitString divise une chaîne en différentes parties délimitées par l'
délimiteur spécifié de caractères. S est la chaîne à split.
Le délimiteur est une chaîne de caractères contenant les caractères définis comme
délimiteurs.

SplitString retourne un tableau de chaînes de caractères de type
Système.Les Types.TStringDynArray qui contient la répartition des pièces de la
chaîne d'origine.
- Vous devriez également ajouter que ceci est uniquement disponible en Delphi XE et plus.
- Je n'ai pas réellement le savoir. Mais le XE est ancien maintenant.
- si rien d'autre n'est mentionné dans les tags ou la question, je suppose toujours que le Delphi version qui est en vigueur au moment de la question est posté ici. Si quelqu'un veut des réponses précises, il devrait être plus précis poser sa question. En outre, la réponse peut être utile pour les autres, même si ce n'est pour l'OP.
- assurez-vous qu'il est! Je n'ai pas critiqué la réponse (upvoted en effet), mais seulement suggéré une petite modification.
- pour le pré-XE Delphi il y a une autre fonction: docwiki.embarcadero.com/Libraries/XE2/en/...
InformationsquelleAutor David Heffernan
1

Bien, tout le monde les postes traditionnels de réponses ici, il en sera je ne.

Je vois 2 réponses déjà posté, mais je ne sais pas si le quatrième-un (PChar à base de ExtractStrings) serait, avant d'être dupe sera fermé.

Dans l'ensemble c'est un doublon de Découper une chaîne en un tableau de chaînes de caractères basé sur un délimiteur et toutes les réponses peut être vu là-bas.

http://jcl.sf.net http://wiki.delphi-jedi.org/wiki/JCL_Help:IJclStringList
```
var OutPutVariable: iJclStringList; 

OutPutVariable := JclStringList().Split('Word1.Word2.Word3','.');
```
Maintenant
```
{ OutPutVariable[0] would be 'Word1'}
{ OutPutVariable[1] would be 'Word2'}
{ OutPutVariable[2] would be 'Word3'}
```
Si vous insistez sur l'original de votre indexation
```
{ OutPutVariable[1] would be Word1}
{ OutPutVariable[2] would be Word2}
{ OutPutVariable[3] would be Word3}
```
Puis ajouter un talon 0e chaîne
```
OutPutVariable := JclStringList().Split('.Word1.Word2.Word3','.');
```
ou
```
OutPutVariable := JclStringList().Add('').Split('Word1.Word2.Word3','.', False);
```
Il prévoit également Rejoindre et de nombreuses autres fonctions.

PS: 4ème variante est http://docwiki.embarcadero.com/Libraries/XE2/en/System.Classes.ExtractStrings

InformationsquelleAutor Arioch 'The

Vous devez vous connecter pour publier un commentaire.