> Tous les forums > Forum Autres langages
 prog de filtrage avec v b
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
charouha
  Posté le 14/12/2007 @ 20:07 
Aller en bas de la page 
Nouvelle astucienne
j'ai un problem d'execution de la macro et j'arrive pas à le trouver si qlq peut m'aider à trouver la sollution merci voila la macro en vb ; programme du filtrage UserForm1.ShowEnd Sub Public Sub Programme() Open "c:\dh89c.txt" For Input As 1 forme$ = UserForm1.TextBox1.Text If UserForm1.OptionButton1.Value = True Then entete = "{\rtf1\ansi " debutgras = "{\b " fingras = " }" paragraphe = " {\par}"

finfichier = "}"

Open "c:\resultat.rtf" For Output As 2ElseIf UserForm1.OptionButton2.Value = True Then entete = "<html><head></head><body>" debutgras = "<b>" fingras = "</b>" paragraphe = "<br />" finfichier = "</body></html>" Open "c:\resultat.html" For Output As 2End If compteur1 = 0 compteur2 = 0

Print #2, entete

While (EOF(1) = 0) Line Input #1, a$ compteur1 = compteur1 + 1

k = InStr(a$, forme$)

If k > 0 Then

deb$ = Left$(a$, k - 1) fin$ = Mid$(a$, k + Len(forme$))

Print #2, deb$ + debutgras + forme$ + fingras + fin$

Print #2, paragraphe

compteur2 = compteur2 + 1

End If

Wend

Print #2, finfichier

Close (1)Close (2) End Sub
Publicité
faboun
 Posté le 14/12/2007 à 20:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour

http://www.technicland.com/malpolitus.swf

cordialement



Modifié par faboun le 18/12/2007 11:38
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
99,99 €Clavier mécanique Corsair K60 RGB Pro à 99,99 €
Valable jusqu'au 13 Avril

Amazon fait une promotion sur le clavier Corsair K60 RGB Pro qui passe à 99,99 € livré gratuitement au lieu de 129 €. Avec son design en aluminium, ce clavier offre une expérience de jeu agréable au quotidien. Il embarque notamment des switches Cherry Viola ainsi qu'un rétroéclairage RGB par touche.


> Voir l'offre
197,24 €Tablette 10.4 pouces Galaxy Tab A7 2020 (8 coeurs, 32 Go, Wifi, WUXGA+, RAM 3 Go) à 197,24 € livrée
Valable jusqu'au 13 Avril

Amazon Allemagne fait une promotion sur la tablette 10.4 pouces Samsung Galaxy Tab A7 2020 qui passe à 191,59 € (avec la TVA ajustée). Comptez 5,65 € pour la livraison en France soit un total de 197,24 € livrée. On la trouve ailleurs à plus de 230 €. Cette tablette possède un écran 10.4 pouces WUXGA+ (2000x1200 pixels), un processeur octa-core 2 GHz, 3 Go de RAM, un espace de stockage de 32 Go extensible par MicroSD, le WiFi, le bluetooth et tourne sous Android 10.

La tablette pourra être mise en français dès le premier démarrage et vous bénéficiez d'une garantie européenne de 2 ans. Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane.


> Voir l'offre
29,99 €Casque sans-fil bluetooth Philips TAH4205BK à 29,99 €
Valable jusqu'au 13 Avril

Cdiscount fait une promotion sur le casque sans-fil bluetooth Philips TAH4205BK qui passe à 29,99 € au lieu d'une quarantaine d'euros habituellement. Ce casque offre des basses puissantes et percutantes et une bonne isolation phonique. Des commandes sur la coque vous permettent de contrôler vos appels, la musique et le volume. Le casque offre une autonomie de 29 h et peut être plié pour prendre moins de place dans le sac. Recharge via USB-C.


> Voir l'offre

Sujets relatifs
Ameliorer le Main "Java" avec les fonctions & procédures
concatenation avec Arduino
URGENT ! Fin de développement d'application C++ avec MFC
Problème avec WinPython - Spyder
Convertir un fichier image de 2002 avec extension ".GOOD"
Correction conditionnelle avec TEXTPAD OU NOTEPAD
Site dynamique avec Dream et Wamp
macro excell pour ouverture fichier avec password
Comment coloriser les doublons et unique avec VBA
Carnet Adresse avec VB
Plus de sujets relatifs à prog de filtrage avec v b
 > Tous les forums > Forum Autres langages