begin process at 2012 05 27 01:41:51
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Chaînes de caratères

 > SUPPRIMER LES ESPACES INUTILES D'UNE PHRASE

SUPPRIMER LES ESPACES INUTILES D'UNE PHRASE


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Chaînes de caratères Classé sous :supprimer, espace, phrase, replace, remplacer Niveau :Débutant Date de création :08/09/2001 Vu :20 149
Auteur : vbtom

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

 Description

Cette fonction peut-etre utile pour compter les mots dans une phrase grace aux espaces.

Dans un phrase comme ca: "Vive  ASPFR!" il y a 2 espace entre "Vive" et "ASPFR!" donc si on doit compter les espaces pour trouver le nombre de mots le nombre de mots sera faussé
Grace à cette fonction la phrase deviendra "Vive ASPFR!" et donc on pourra compter le nombre de mots correctement!

Source

  • Function DelSpace(Chaine)
  • Dim ChaineCopy, i, NbrCarToEnd, Part1, Part2
  • ChaineCopy = LTrim(Chaine)
  • ChaineCopy = RTrim(ChaineCopy)
  • i = InStr(1, ChaineCopy, " ")
  • While i <> 0
  • NbrCarToEnd = Len(ChaineCopy) - (i - 1)
  • Part1 = Mid(ChaineCopy, 1, i)
  • Part2 = Mid(ChaineCopy, i + 2, NbrCarToEnd)
  • ChaineCopy = Part1 & Part2
  • i = InStr(1, ChaineCopy, " ")
  • Wend
  • DelSpace = ChaineCopy
  • End Function 
Function DelSpace(Chaine)
Dim ChaineCopy, i, NbrCarToEnd, Part1, Part2

ChaineCopy = LTrim(Chaine)
ChaineCopy = RTrim(ChaineCopy)

i = InStr(1, ChaineCopy, "  ")

While i <> 0
    NbrCarToEnd = Len(ChaineCopy) - (i - 1)
    Part1 = Mid(ChaineCopy, 1, i)
    Part2 = Mid(ChaineCopy, i + 2, NbrCarToEnd)
    ChaineCopy = Part1 & Part2
    i = InStr(1, ChaineCopy, "  ")
Wend

DelSpace = ChaineCopy
End Function

 Conclusion

Voila,voila...
@++
vbtom.


 Sources du même auteur

Source .NET (Dotnet) AFFICHER LE CONTENU ENTIER D'UNE TABLE
Source .NET (Dotnet) RÉCUPÉRER LE RÉSULTAT D'UNE REQUÈTE SQL
Source .NET (Dotnet) CONNECTION À UNE BASE DE DONNÉE ACCESS
TESTER LA VALIDITÉ D'UN NUMÉRO DE CARTE DE CRÉDIT
Source avec Zip LE VBS ?? - PART III: TRAVAILLER SUR DES DONNÉES STRING (TEX...
Toutes les sources de vbtom

 Sources de la même categorie

FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUI... par promeythey
CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650
CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS par EricDD
FONCTION UCFIRST EN ASP par DesignerCreator
Source .NET (Dotnet) FONCTIONS DE VÉRIFICATION DE LA SYNTAXE D'UNE CHAINE par vladam
Toutes les sources de la catégorie Chaînes de caratères

 Sources en rapport avec celle ci

FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUI... par promeythey
Source .NET (Dotnet) ENVOYER UN NOUVEAU FICHIER DANS UN REPERTOIRE ET SAUVEGARDER... par raoulator
FONCTION SUPPRIMANT LES TAGS SGML AVEC LES EXPRESSIONS RÉGUL... par garfield90
Source avec Zip DES SMILEYS DANS VOS PAGES par BinOff
TROUVER UNE CHAINE ET LA REMPLACER par rcolas

Commentaires et avis

Commentaire de cyberfred le 30/04/2002 15:33:28

Avec qq modif on peut supprimer tous les espaces d'une chaine :

Public Function DelAllSpace(Chaine)
Dim ChaineCopy, i, NbrCarToEnd, Part1, Part2

ChaineCopy = LTrim(Chaine)
ChaineCopy = RTrim(ChaineCopy)

i = InStr(1, ChaineCopy, " ")

While i &lt;&gt; 0
    NbrCarToEnd = Len(ChaineCopy) - (i - 1)
    Part1 = Mid(ChaineCopy, 1, i - 1)
    Part2 = Mid(ChaineCopy, i + 1, NbrCarToEnd)
    ChaineCopy = Part1 & Part2
    i = InStr(1, ChaineCopy, " ")
Wend

DelAllSpace = ChaineCopy
End Function

Et voila !

Commentaire de MizerskiW le 14/04/2011 19:30:14 1/10

Function ne marche pas

Commentaire de wanyans le 24/06/2011 18:57:47

Ces fonctions ne fonctionnent pas!!

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Remplacer la derniere "," (virgule) d'une expression ? [ par scoubigee ] Lors d'une boucle asp je g&#233;n&#232;re cette expression : '10044','5022','10045','5022,5',cette chaine sert a etre transmise a une fonction javascr remplacer un caractère [ par elpens ] Bonjour, j'aimerais remplacer les apostrophes présentes dans une string.Voilà ce que j'ai tenté :myStr.Replace("'", "'" &amp; "<f replace d'une double quote [ par wally88 ] Bonjour voila j'aimerais remplacer ce texte : &lt;IMG SRC=" par celui la  &lt;IMG SRC="/reple replace(" &lt;IMG SRC=" " , " &lt;IMG SRC="/rep ")  forc Supprimer trafic [ par abdokarim ] Bonjour, je trouve que le trafic occupe de l'espace,j'ai limité le trafic a 100Mo mais sa passe des Sur-utilisation de l'espace qui ma possé a le supp fonction replace en asp [ par mannou01 ] Bonjour je veut inserer dans ma base de donnée un code html et je veut remplacer les doubles et simples cotes("')par leur code en asp(&quot; &rsquo;) php [ par hadjila20 ] bonsoir tout le monde ,voilà j'essaye de faire un site web et j'en suis à la partie administrateur,qui donc peu consulter,modifier ou supprimer dans l Syntaxe SQL [ par Cafekafe ] Bonjour à tous! J'ai un probleme de syntaxe SQL que je n'arrive pas a résoudre car il me semble correct mais peut etre que quelqu'un verra une erreur base de données supprimer tous les elements d une table [ par frk22 ] Bonjour, je développe un petit soft utilisant une base de données. Mon souci est que j aimerais offrir à l'utilisateur la possibilité de réinitialise Supprimer les apostrophes d'une chaine de caractères [ASP] [ par sylvain64520 ] Bonjour à tous, Pour la connexion et l'inscription à un site web, je cherche à supprimer les apostrophes des champs afin de pouvoir passer n'importe Proposer des téléchargements "Sécurisés" [ par toopix ] Bonjour à tous, Je possède un site avec un espace sécurisé (pour mes clients). Le site est developpé en asp.net et hebergé sur ASPSERVEUR.com Chaque


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
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 : 1,966 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)