A voir également:
- Besoin d'un script pour supprimer des lignes
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Comment supprimer des lignes dans un tableau word - Guide
- Impossible de supprimer un fichier - Guide
- Supprimer liste déroulante excel - Guide
6 réponses
je rappel que c'est du purebasic donc plus simple mais comme je l'ais utiliser pour faire plus compliquer il parait plus compliquer.
je les modifier vite fait pour toi
il vas rechercher le mot pour ensuite supprimer ce qu'il y a sur la ligne du mot désirer
Macro Write_texte( variable,valeur, chemin )
a=0
compteur=0
Position=0
trouver=0
OpenFile(0, chemin)
While trouver=0
FileSeek(0, compteur)
texte$=ReadString(0)
Position = FindString(texte$, "endofline", 0)
Position = FindString(texte$, variable, 0)
If position>0
trouver=1
Else
a = Len(texte$)
compteur=compteur+(a+2)
EndIf
Wend
FileSeek(0, compteur-1)
texte$=ReadString(0)
Position=FindString(texte$, texte$, 1)
FileSeek(0, compteur+Position)
texte$=ReadString(0)
FileSeek(0, compteur+Position)
WriteStringN(0, " " )
FileSeek(0, compteur+Position)
WriteString(0, valeur )
FileSeek(0, compteur+Position)
texte$=ReadString(0)
RTrim(texte$)
FileSeek(0, compteur+Position)
texte$=ReadString(0)
CloseFile(0)
EndMacro
Write_texte( "mot","", "texte.txt" )
je les modifier vite fait pour toi
il vas rechercher le mot pour ensuite supprimer ce qu'il y a sur la ligne du mot désirer
Macro Write_texte( variable,valeur, chemin )
a=0
compteur=0
Position=0
trouver=0
OpenFile(0, chemin)
While trouver=0
FileSeek(0, compteur)
texte$=ReadString(0)
Position = FindString(texte$, "endofline", 0)
Position = FindString(texte$, variable, 0)
If position>0
trouver=1
Else
a = Len(texte$)
compteur=compteur+(a+2)
EndIf
Wend
FileSeek(0, compteur-1)
texte$=ReadString(0)
Position=FindString(texte$, texte$, 1)
FileSeek(0, compteur+Position)
texte$=ReadString(0)
FileSeek(0, compteur+Position)
WriteStringN(0, " " )
FileSeek(0, compteur+Position)
WriteString(0, valeur )
FileSeek(0, compteur+Position)
texte$=ReadString(0)
RTrim(texte$)
FileSeek(0, compteur+Position)
texte$=ReadString(0)
CloseFile(0)
EndMacro
Write_texte( "mot","", "texte.txt" )
bonjour,
moi j'ai créer un code en purebasic qui modifie mes valeurs dans mon .txt
en cas ou sa pourrai t'intéresser
moi j'ai créer un code en purebasic qui modifie mes valeurs dans mon .txt
en cas ou sa pourrai t'intéresser
Ué vas y stp
Pck j'ai trouver comment faire mais c es un peu compliker, pt etre que comme tu fais c es + simple
Pck j'ai trouver comment faire mais c es un peu compliker, pt etre que comme tu fais c es + simple
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question