patricktoulon
XLDnaute Barbatruc
tu es sur d'avoir téléchargé la 2.0 D
Complément (Vba Indenter Interface) V 3.1 CFx 2
- Initiateur de la discussion patricktoulon
- Date de début
patricktoulon
XLDnaute Barbatruc
tu es sur de ne pas avoir un autre indenter en même temps
par ce que ton resultat n'est pas logique
j'ajoute 4 espace pour indenter +le len du trim du mot choisi en l’occurrence "Declare"
ça fait pas trois kilomètre d'espace que tu me montre
par ce que ton resultat n'est pas logique
j'ajoute 4 espace pour indenter +le len du trim du mot choisi en l’occurrence "Declare"
ça fait pas trois kilomètre d'espace que tu me montre
patricktoulon
XLDnaute Barbatruc
re
quand je regarde le html on vois bien que je ne rajoute pas autant d'espace
j'en rajoute 2 pour être exact
quand je regarde le html on vois bien que je ne rajoute pas autant d'espace
j'en rajoute 2 pour être exact
HTML:
<PRE indent="-1"><P style="MARGIN: 0px" typ2="modul" typ="vide" indent="0"></P>
<P style="MARGIN: 0px" typ2="modul" typ="vide" indent="0"></P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="0">Option Compare Text</P>
<DIV typ="BlocdieseIf" indent="0"><P style="MARGIN: 0px" typ2="modul" typ="first" indent="0">#If VBA7 Then</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Declare PtrSafe Function EnumWindows Lib "user32" _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> (ByVal lpEnumFunc As LongPtr, ByVal Param As Long) As Long</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Declare PtrSafe Function IsWindowVisible Lib "user32" _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> (ByVal hwnd As Long) As Long</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Declare PtrSafe Function EnumDisplayMonitors Lib "user32" _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> (ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As LongPtr, dwData As Long) As Long</P>
<P style="MARGIN: 0px" typ2="modul" typ="first" indent="0">#Else</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Declare Function EnumWindows Lib "user32" _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> (ByVal lpEnumFunc As Long, ByVal Param As Long) As Long</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Declare Function IsWindowVisible Lib "user32" _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> (ByVal hwnd As Long) As Long</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Declare Function EnumDisplayMonitors Lib "user32" _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> (ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As Long, dwData As Long) As Long</P>
<P style="MARGIN: 0px" typ2="modul" typ="first" indent="0">#End If</P></DIV>
<P style="MARGIN: 0px" typ2="modul" typ="Dim" indent="0">Dim Results As Dictionary</P>
<P style="MARGIN: 0px" typ2="modul" typ="Dim" indent="0">Dim Criteria As String</P>
<DIV typ="BlocSub" indent="0"><P style="MARGIN: 0px" typ2="modul" typ="first" indent="0">Sub Msg_Verrue()</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> UserConfirm _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> "Proposition pour le nom du concours du jour : " & _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> Format(Now, "DDMMYYYY") & "_" & Environ("COMPUTERNAME"), , _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> "vous pouvez faire Ctrl+v (coller)", _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> "dans la zone ", _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> """Tapez ici le nom de votre nouveau concours""", _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> "de Gc_Concours", , _</P>
<P style="MARGIN: 0px" typ2="modul" typ="autre" indent="1"> "OK", "IMG"</P>
<P style="MARGIN: 0px" typ2="modul" typ="vide" indent="0"></P>
<P style="MARGIN: 0px" typ2="modul" typ="first" indent="0">End Sub</P></DIV>
<P style="MARGIN: 0px" typ2="modul" typ="vide" indent="0"></P>
<P style="MARGIN: 0px" typ2="modul" typ="vide" indent="0"></P>
<P style="MARGIN: 0px" typ2="modul" typ="vide" indent="0"></P>
<P style="MARGIN: 0px" typ2="modul" typ="vide" indent="0"></P>
<P style="MARGIN: 0px" typ2="modul" typ="vide" indent="0"></P></PRE>
)
patricktoulon
XLDnaute Barbatruc
re
bonjour et merci @fanch55
c'est le htmlBrut qu'il me faut( l'autre bouton html)
le htmlcolor c'est pas le html produit par le code brut
c'est un arrangement avec coloration syntaxique pour le partage sur forum dans balise enrichi
le html brut lui me donne les blocs réels DIV: p,p,...DIV et le vrai nombre de "&npsp;"
bonjour et merci @fanch55
c'est le htmlBrut qu'il me faut( l'autre bouton html)
le htmlcolor c'est pas le html produit par le code brut
c'est un arrangement avec coloration syntaxique pour le partage sur forum dans balise enrichi
le html brut lui me donne les blocs réels DIV: p,p,...DIV et le vrai nombre de "&npsp;"
patricktoulon
XLDnaute Barbatruc
re
pour la liste je ne sais pas
elle st tout simplement par ordre alpha dans le vbe
je rajoute un simple petit tri à bulle dans le listemodule et le tour est joué
pour la liste je ne sais pas
elle st tout simplement par ordre alpha dans le vbe
je rajoute un simple petit tri à bulle dans le listemodule et le tour est joué
patricktoulon
XLDnaute Barbatruc
que penserais tu si je fesais un raise sur l'indentation des declare function coupées par un underscore
c'est a dire au lieu de choisir une limite en fonction du texte je formaliserais le truc avec un ecart identique pour toutes
du genre à la place de ca(ici je suis indenté au mot"Function")+l'espace
je fesais ceci
qu'en pense tu ?
c'est a dire au lieu de choisir une limite en fonction du texte je formaliserais le truc avec un ecart identique pour toutes
du genre à la place de ca(ici je suis indenté au mot"Function")+l'espace
VB:
#If VBA7 Then
Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As LongPtr, ByVal Param As Long) As Long
Private Declare PtrSafe Function IsWindowVisible Lib "user32" _
(ByVal hwnd As Long) As Long
Declare PtrSafe Function EnumDisplayMonitors Lib "user32" _
(ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As LongPtr, dwData As Long) As Long
#Else
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal Param As Long) As Long
Declare Function IsWindowVisible Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function EnumDisplayMonitors Lib "user32" _
(ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As Long, dwData As Long) As Long
#End If
VB:
#If VBA7 Then
Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As LongPtr, ByVal Param As Long) As Long
Private Declare PtrSafe Function IsWindowVisible Lib "user32" _
(ByVal hwnd As Long) As Long
Declare PtrSafe Function EnumDisplayMonitors Lib "user32" _
(ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As LongPtr, dwData As Long) As Long
#Else
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal Param As Long) As Long
Declare Function IsWindowVisible Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function EnumDisplayMonitors Lib "user32" _
(ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As Long, dwData As Long) As Long
#End If
fanch55
XLDnaute Barbatruc
Ta proposition est de bon aloi,
mais tu auras ( dans les 2 cas) un décalage entre les private et absence de private .
Mais il faut bien trancher un jour ...
fanch55
XLDnaute Barbatruc
Voilà le Brut
patricktoulon
XLDnaute Barbatruc
re
bon ben quand je regarde ton html brut obtenu sans même aller voir le code
on se rend compte que c'est bon on est bien indenté au "Lib"+l'espace
et quand je regarde les espace html(&npsp;")
on voit qu'il y a une meprise entre les espace chr(32) et les espaces html( 
autrement dit ton vba n'interprète pas les nbsp; du innertext comme des espaces
tu ne fait pas la conversion automatique
pourtant avec ton lecteur binnaire ils le sont (et dans mon vbe aussi)c'est bien tous des 20%
conclusion soit tu a un soucis avec ça quelque part
soit alors il y a une option qui gère ce truc quelque par qui n'est pas activée qui chez moi l'est par défaut
bon ben quand je regarde ton html brut obtenu sans même aller voir le code
on se rend compte que c'est bon on est bien indenté au "Lib"+l'espace
et quand je regarde les espace html(&npsp;")
on voit qu'il y a une meprise entre les espace chr(32) et les espaces html( 
autrement dit ton vba n'interprète pas les nbsp; du innertext comme des espaces
tu ne fait pas la conversion automatique
pourtant avec ton lecteur binnaire ils le sont (et dans mon vbe aussi)c'est bien tous des 20%
conclusion soit tu a un soucis avec ça quelque part
soit alors il y a une option qui gère ce truc quelque par qui n'est pas activée qui chez moi l'est par défaut
fanch55
XLDnaute Barbatruc
Je compte 90 espaces dans la première continuation.
Je ne pense pas que ce soit mon système ou excel qui les rajoute .
J'ai fait du pas à pas dans la sub Indentcode :
| For i = 0 To ps.Length - 1 If i = 3 Then Stop If checkprogression Then barprogress.curs.Width = (260 / ps.Length) * (i + 1): barprogress.Repaint On Error Resume Next SpaC = Application.Rept(" ", Val(ps(i).getattribute("indent"))) Err.Clear: On Error GoTo 0 ps(i).innerhtml = SpaC & ps(i).innerhtml ps(i).Style.margin = 0 SpaC = Application.Rept(" ", Application.Max(plusx, 0)) ps(i).innerhtml = SpaC & ps(i).innerhtml 'pour le report d'indentation des Lignes coupées par le "_" ;calcul du Spac If Right(Trim(ps(i).innertext), 1) = "_" Then If plusx = 0 Then plusx = InStr(Trim(ps(i).innertext), "Declare") - 1 If plusx <= 0 Then plusx = InStr(Trim(ps(i).innertext), Chr(34)) - 1 If plusx <= 0 Then plusx = InStr(Trim(ps(i).innertext), " ") End If Else plusx = 0 End If res2 = res2 & ps(i).outerhtml & vbCrLf ReS = ReS & SpaC & ps(i).innertext & vbCrLf Next | Prenons le ps(2) : "Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" _" InStr(Trim(ps(i).innertext), "Declare") - 1 ==> Plusx = 0 InStr(Trim(ps(i).innertext), Chr(34)) - 1 ==> Plusx = 43 ( le chr34 étant la double quote devant user32) On passe au ps(3) : "(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long" Application.Rept(" ", Val(ps(i).getattribute("indent"))) => spac = ( 4 espaces ) ps(i).innerhtml = SpaC & ps(i).innerhtml <= on ajoute 4 espaces devant ps(3) SpaC = Application.Rept(" ", Application.Max(plusx, 0)) <= plusx étant = 43 ps(i).innerhtml = SpaC & ps(i).innerhtml <= on ajoute 43 espaces devant ps(3) ReS = ReS & SpaC & ps(i).innertext & vbCrLf <= le spac n'a pas changé, on rajoute donc 43 espaces devant ps(3) Donc 43 + 43 + 4 = 90 espaces ( ce qui vérifie donc ce qui est présenté dans textbox2 à la première indentation ) |
patricktoulon
XLDnaute Barbatruc
re a non
le spac c'est un espace * par la valeur de l'attribut indent de la balise p(ps(x)
il est renouvelé a chaque P
bon de toute façon j'ai tranché
1 dans la version 2.0 DE je bloque a 25 espaces + l'indentation du bloc parent
dans la 3.0 on aura le choix dans les paramètres
2 j'ai revu tout le code pour cette partie je différencie bien le SpaCeHtml et le SpaCeText
3 j'ai ajouté les blocs type et private type (je les avais oublié ceux là )
4 pour la liste; les modules de type 1 sont dans l'ordre
il y a un peu les Feuil qui viennent foutre le wohy mais bon
la flemme de faire deux boucle pour les modules de type 1 et 3 et 2
la version 2.0 DE à télécharger
le spac c'est un espace * par la valeur de l'attribut indent de la balise p(ps(x)
il est renouvelé a chaque P
bon de toute façon j'ai tranché
1 dans la version 2.0 DE je bloque a 25 espaces + l'indentation du bloc parent
dans la 3.0 on aura le choix dans les paramètres
2 j'ai revu tout le code pour cette partie je différencie bien le SpaCeHtml et le SpaCeText
3 j'ai ajouté les blocs type et private type (je les avais oublié ceux là )
4 pour la liste; les modules de type 1 sont dans l'ordre
il y a un peu les Feuil qui viennent foutre le wohy mais bon
la flemme de faire deux boucle pour les modules de type 1 et 3 et 2
la version 2.0 DE à télécharger
patricktoulon
XLDnaute Barbatruc
punaise j'ai fait une bourde
laisse moi 5 minute pour rattraper ça mille excuses
laisse moi 5 minute pour rattraper ça mille excuses
patricktoulon
XLDnaute Barbatruc
bon ben la on est bons non ?
2.0 DE bis
2.0 DE bis
Discussions similaires
