abonnement Unibet Coolblue Bitvavo
pi_32342482
quote:
Op donderdag 17 november 2005 13:59 schreef sigme het volgende:
M, kan je die macro van jou ook zo gek krijgen dat 'ie posticoontjes meeneemt?
Ik zou zoiets kunnen maken, ja. Maar vooralsnog kan ik slechts bold, italic en underline veranderen. subscript en superscript moet ook nog wel te doen zijn, strike vast ook wel. Even kijken welke tags er allemaal zijn. Plaatjes zijn in ieder geval niet mogelijk, nu niet en ik vermoed straks ook niet.
pi_32342601
quote:
Op donderdag 17 november 2005 14:01 schreef Monidique het volgende:

[..]

Ik zou zoiets kunnen maken, ja. Maar vooralsnog kan ik slechts bold, italic en underline veranderen. subscript en superscript moet ook nog wel te doen zijn, strike vast ook wel. Even kijken welke tags er allemaal zijn. Plaatjes zijn in ieder geval niet mogelijk, nu niet en ik vermoed straks ook niet.
Interessant. Ik heb nooit wat gedaan met VBA in Word, maar ik ben autodidact in VBA-bij-Excel. Ik ben wel geďnteresseert in de code, zéker als je die posticoontjes erin frummelt. Ben je genegen je code te delen?
ik moet verrassend weinig
Es ist heute schlecht und wird nun täglich schlechter werden, – bis das Schlimmste kommt
pi_32342610
quote:
Op donderdag 17 november 2005 13:04 schreef Monidique het volgende:
"What bothers me is when people are irresponsibly using their positions and playing politics," Bush added. "That's exactly what is taking place in America."
Bush was right! (geluidsversterker hiervoor nodig)
pi_32342777
quote:
Op donderdag 17 november 2005 14:05 schreef sigme het volgende:

[..]

Interessant. Ik heb nooit wat gedaan met VBA in Word, maar ik ben autodidact in VBA-bij-Excel. Ik ben wel geďnteresseert in de code, zéker als je die posticoontjes erin frummelt. Ben je genegen je code te delen?
Uiteraard. Maar het is geen goede code, hoor, ik ken geen VB(A), dus probeer ik maar wat. Zo kijk ik per karakter of het vetgedrukt bijvoorbeeld is en heb ik geen soortement regexp.
pi_32342863
De PI zou ik dan in het upload-dialoogje kunnen frummelen. Nu heb ik een WebBrowser-element dat ik verborgen laad, ik plaats de omgebouwde tekst in het berichtenvenster en roep dan submit.Click, of iets dergelijks, aan. Beter zou het ongetwijfeld zijn om direct met HTTP te werken, maar zoals ik al zei, ik probeer maar wat.
pi_32343126
quote:
Op donderdag 17 november 2005 14:11 schreef Monidique het volgende:

[..]

Uiteraard. Maar het is geen goede code, hoor, ik ken geen VB(A), dus probeer ik maar wat. Zo kijk ik per karakter of het vetgedrukt bijvoorbeeld is en heb ik geen soortement regexp.
Juist daarom Ik ben een doe-het-zelf-frummelaar, van andere doe het zelvers kan ik iets opsteken, niet van iemand die gewoon weet hoe het moet

Wat is een regexp in zeusnaam?
ik moet verrassend weinig
Es ist heute schlecht und wird nun täglich schlechter werden, – bis das Schlimmste kommt
pi_32343170
quote:
Op donderdag 17 november 2005 14:23 schreef sigme het volgende:

[..]

Juist daarom Ik ben een doe-het-zelf-frummelaar, van andere doe het zelvers kan ik iets opsteken, niet van iemand die gewoon weet hoe het moet

Wat is een regexp in zeusnaam?
Perl-voorbeeld:

s/foo/bar/gi;
replaces any occurrence of foo case-insensitively in the "current string" by the character sequence bar (e.g. Foo and FOO get replaced by bar too)
pi_32343271
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Private Sub CommandButton1_Click()

CommandButton1.Enabled = False
TextBox2.Text = "Laden van pagina " + "http://forum.fok.nl/fok/post_reply/" + TextBox1.Value + "..."
WebBrowser1.Navigate ("http://forum.fok.nl/fok/post_reply/" + TextBox1.Value)
While (WebBrowser1.ReadyState <> READYSTATE_COMPLETE)
    DoEvents
Wend

TextBox2.Text = TextBox2.Text + vbNewLine + "Klaar met laden. Bericht omzetten naar UBB-code..."
BoldOn = False
ItalicOn = False
UnderlineOn = False

msg = ""

Set Characters = ActiveDocument.Content.Characters

For C = 1 To Characters.Count

If Characters(C).Bold And Not BoldOn Then
msg = msg + "[b]"
BoldOn = True
ElseIf Not Characters(C).Bold And BoldOn Then
BoldOn = False
msg = msg + "[/b]"
End If


If Characters(C).Italic And Not ItalicOn Then
msg = msg + "[i]"
ItalicOn = True
ElseIf Not Characters(C).Italic And ItalicOn Then
ItalicOn = False
msg = msg + "[/i]"
End If


If Characters(C).Underline <> 0 And Not UnderlineOn Then
msg = msg + "[u]"
UnderlineOn = True
ElseIf Characters(C).Underline = 0 And UnderlineOn Then
UnderlineOn = False
msg = msg + "[/u]"
End If

Ctmp = C + 1
If Ctmp < Characters.Count Then
If Characters(C).Underline = 0 And UnderlineOn Then
msg = msg + "[/u]"
UnderlineOn = False
End If
End If

If Ctmp < Characters.Count Then
If Characters(C).Italic = 0 And ItalicOn Then
msg = msg + "[/i]"
ItalicOn = False
End If
End If

If Ctmp < Characters.Count Then
If Characters(C).Bold = 0 And BoldOn Then
msg = msg + "[/b]"
BoldOn = False
End If
End If

msg = msg + Characters(C)
Next


If UnderlineOn Then
msg = msg + "[/u]"
End If
If ItalicOn Then
msg = msg + "[/i]"
End If
If BoldOn Then
msg = msg + "[/b]"
End If

'TextBox2.Value = msg
TextBox2.Text = TextBox2.Text + vbNewLine + "Plaatsen van bericht op Fok!..."
WebBrowser1.Document.Reply.Message.Value = msg
WebBrowser1.Document.Reply.Submit.Click
While (WebBrowser1.ReadyState <> READYSTATE_COMPLETE)
    DoEvents
Wend
TextBox2.Text = TextBox2.Text + vbNewLine + "Bericht geplaatst..."

CommandButton1.Enabled = True

End Sub


Geen mooie code, absoluut niet, maar het werkt redelijk. Code direct onder OnClick is natuurlijk lelijk. Maar goed, whatever. Ik wil nu in ieder geval een betere manier vinden, doormiddel van Find.Replace, of zoiets, om de tags te maken.
pi_32343501
quote:
Op donderdag 17 november 2005 14:25 schreef Monidique het volgende:

[..]

Perl-voorbeeld:

s/foo/bar/gi;
replaces any occurrence of foo case-insensitively in the "current string" by the character sequence bar (e.g. Foo and FOO get replaced by bar too)
Perl, foo, Foo en FOO klinken mij als Chinees in de oren. Oftewel, daarvan begrijp ik geen ene hout. Had ik al gezegd dat ik niet met dat potjes-engels van tutorials voor programeren overweg kan ?

Onderstaande kan ik wél volgen.
quote:
Op maandag 14 november 2005 18:33 schreef Monidique het volgende:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Characters(C).Italic And Not ItalicOn Then
msg = msg + "[i]"
ItalicOn = True
ElseIf Not Characters(C).Italic And ItalicOn Then
ItalicOn = False
msg = msg + "[/i]"
End If

If Characters(C).Underline And Not UnderlineOn Then
msg = msg + "[u]"
UnderlineOn = True
ElseIf Not Characters(C).Underline And UnderlineOn Then
UnderlineOn = False
msg = msg + "[/u]"
End If
ik moet verrassend weinig
Es ist heute schlecht und wird nun täglich schlechter werden, – bis das Schlimmste kommt
pi_32343565
Maar nu heb ik bijna iets beter:

1
2
3
4
5
6
7
8
9
10
11
12
With ActiveDocument.Content.Find
         .ClearFormatting
         .Font.Bold = 1
            .Replacement.ClearFormatting
            .Replacement.Font.Bold = 0
            .Text = "*"
            .Execute FindText:="", _
               ReplaceWith:="[b]^&[/b]", _
               Format:=True, _
               Replace:=Word.WdReplace.wdReplaceAll
            
         End With


Probleem is dat het bericht in Word zelf veranderd wordt en dat het niet in een aparte variabele wordt opgeslagen.
pi_32343588
quote:
Op donderdag 17 november 2005 14:36 schreef pberends het volgende:

Lelijke foto's
Ugh! Ugh! Ugh! Mijn ogen, wat doe je!
  donderdag 17 november 2005 @ 14:41:30 #189
89730 Drugshond
De Euro. Mislukt vanaf dag 1.
pi_32343646
quote:
Op donderdag 17 november 2005 14:29 schreef Monidique het volgende:

[ code verwijderd ]

Geen mooie code, absoluut niet, maar het werkt redelijk. Code direct onder OnClick is natuurlijk lelijk. Maar goed, whatever. Ik wil nu in ieder geval een betere manier vinden, doormiddel van Find.Replace, of zoiets, om de tags te maken.
On Error Resume Next
pi_32343667
quote:
Op donderdag 17 november 2005 14:29 schreef Monidique het volgende:

[ code verwijderd ]

Geen mooie code, absoluut niet, maar het werkt redelijk. Code direct onder OnClick is natuurlijk lelijk. Maar goed, whatever. Ik wil nu in ieder geval een betere manier vinden, doormiddel van Find.Replace, of zoiets, om de tags te maken.
Dank!
Dit soort code kan ik goed volgen, ik ga er morgenochtend even voor zitten.
ik moet verrassend weinig
Es ist heute schlecht und wird nun täglich schlechter werden, – bis das Schlimmste kommt
pi_32343728
quote:
'Een wonderlijke ontboezeming van bisschop Wiertz'

Roermond -
?Wiertz schetst een karikatuur'', maar ook: ?Wiertz slaat de spijker op zijn kop''. Uiteenlopende reacties op de felle kritiek die de Roermondse bisschop uitte op de toetreding van Turkije tot de Europese Unie en op de islam.

,,Een wonderlijke ontboezeming.'' Zo kwalificeert Tweede-Kamerlid Frans Weekers (VVD) de uitlatingen van bisschop Wiertz in het interview met Chapeau!, waarover deze krant gisteren publiceerde. Hij zegt het niet met zoveel woorden, maar eigenlijk vindt Weekers dat de bisschop beter zijn mond had kunnen houden.

,,De kerk moet zich niet met de politiek bemoeien. De politiek bemoeit zich ook niet met de kerk.'' Volgens het Kamerlid is de bisschop bovendien niet op al te veel kennis van zaken te betrappen. ,,Turkije 100 miljoen inwoners? Dan zit hij er toch minstens 20 miljoen naast. En als er ergens een rabiate scheiding tussen kerk en staat bestaat, dan is het daar wel. Wiertz schetst een soort karikatuur en dat past een kerkvorst niet.'' Ook voor PvdA-Tweede-Kamerlid Frans Timmermans staat het buiten kijf: de bisschop is bijzonder slecht geďnformeerd. ,,Wiertz ziet Europa kennelijk als een exclusief christelijk of zelfs katholiek project. Ik ben ervan overtuigd dat we er beter van worden als Turkije bij Europa komt.''

Bij CDA-parlementariër Jos Hessels kan de bisschop op meer begrip rekenen. Hessels zegt zich de bedenkingen van Wiertz deels te kunnen voorstellen. ,,Ik vraag me zelf ook wel eens af wat de gevolgen zijn als straks een islamitisch land bij het christelijke Europa komt. Maar dat laat onverlet dat ik vind dat Turkije bij de EU hoort.'' Tweede-Kamerlid Geert Wilders, zelf ook een verklaard tegenstander van toetreding van Turkije, is ,,heel erg blij'' met de uitspraken van bisschop Wiertz. ,,Hij slaat de spijker op zijn kop. Ik ben het roerend met zijn opvattingen eens, zowel wat betreft het gebrek aan democratie als de gevaren van de islam. Ik hoop dat deze boodschap ook doordringt tot de geestverwanten van de bisschop en de politiek.''

In islamitische kringen vallen de uitlatingen van Wiertz niet goed. Leyla Cakir is zegt 'verontwaardigd' te zijn. Als voorzitter van de Turkse moskee in Geleen heeft ze juist afgelopen weekend nog samen met de katholieke kerken in Sittard-Geleen een moskee-kerkenpad georganiseerd. ,,We proberen juist mensen bij elkaar te brengen, en zulke uitspraken helpen daar niet bij. Het is erg jammer dat iemand in deze positie dit zegt.'' Provinciale-Statenlid Selçuk Öztürk had deze felle uithaal van Wiertz niet verwacht. ,,Ik wil hem vragen de aardse zaken aan de gekozen politici over te laten. Ik kan zijn zorgen en angsten delen, maar dit is niet de manier dit op te lossen.''

In katholieke kringen kan Wiertz wél op bijval rekenen. Pastoor Gerard Hover van de Sint Matthiasparochie in Maastricht zegt in de uitlatingen van de bisschop ,,niets denigrerends'' te bespeuren. De zielenherder, die zelf regelmatig de publiciteit haalde met ferme uitspraken, onderstreept de visie van Wiertz.

Bij het bisdom Roermond kwamen gisteren slechts drie reacties binnen op de uitlatingen van Wiertz. Woordvoerder M.Bemelmans: ,,Twee adhesiebetuigingen en een derde persoon vroeg om meer uitleg.''
http://www.limburgsdagbla(...)865-1248--%2C00.html
  donderdag 17 november 2005 @ 14:44:52 #192
89730 Drugshond
De Euro. Mislukt vanaf dag 1.
pi_32343753
quote:
Op donderdag 17 november 2005 14:29 schreef Monidique het volgende:

[ code verwijderd ]

Geen mooie code, absoluut niet, maar het werkt redelijk. Code direct onder OnClick is natuurlijk lelijk. Maar goed, whatever. Ik wil nu in ieder geval een betere manier vinden, doormiddel van Find.Replace, of zoiets, om de tags te maken.
Kun je niet iets maken met een Like operator, en een strPos (weet niet meer exact). ? , volgens mij gaat dat een stuk sneller.
pi_32343807
quote:
Op donderdag 17 november 2005 14:44 schreef Drugshond het volgende:

[..]

Kun je niet iets maken met een Like operator, en een strPos (weet niet meer exact). ? , volgens mij gaat dat een stuk sneller.
Zoals ik al zei: ik heb er geen verstand van.
pi_32343838
quote:
Op donderdag 17 november 2005 13:56 schreef Drugshond het volgende:

"My fellow Americans, I am pleased to tell you that I have signed legislation to outlaw Russia forever. We begin bombing in five minutes."
http://radio.about.com/library/reagan_bomb.mp3
pi_32343850
quote:
Op donderdag 17 november 2005 14:42 schreef sigme het volgende:

[..]

Dank!
Dit soort code kan ik goed volgen, ik ga er morgenochtend even voor zitten.
Neem deze dan ook even mee:
awk '{gsub(/^_|\r/,""); printf " -G %s", $0 }' unix_keep_symbols.txt
Verdonk: we moet weer lachen om ons loonstrookje :')
Verdonk: niet links, ik ben niet rechts, maar recht door zee
journalist: niet scheel?
pi_32343912
quote:
Op donderdag 17 november 2005 14:47 schreef Tafkahs het volgende:

[..]

Neem deze dan ook even mee:
awk '{gsub(/^_|\r/,""); printf " -G %s", $0 }' unix_keep_symbols.txt
Dat ziet er niet uit als iets wat ik begrijp..
ik moet verrassend weinig
Es ist heute schlecht und wird nun täglich schlechter werden, – bis das Schlimmste kommt
pi_32344121
quote:
Op donderdag 17 november 2005 14:49 schreef sigme het volgende:

[..]

[afbeelding] Dat ziet er niet uit als iets wat ik begrijp..
Het is ook best wel kut om te lezen als je er niet in zit. Dit is wat het doet

As a part of my makefile I have to do the following:

1. read a text file which contains one token at each line.
2. remove the leading underscore '_'
3. make the output as: "-G <line1> -G <line2>" etc.

Assuming we have file unix_keep_symbol.txt containing:

_A
_B
_C
Verdonk: we moet weer lachen om ons loonstrookje :')
Verdonk: niet links, ik ben niet rechts, maar recht door zee
journalist: niet scheel?
pi_32344147
Wat een klus trouwens, M
Verdonk: we moet weer lachen om ons loonstrookje :')
Verdonk: niet links, ik ben niet rechts, maar recht door zee
journalist: niet scheel?
pi_32344472
quote:
Op donderdag 17 november 2005 14:56 schreef Tafkahs het volgende:

[..]

Het is ook best wel kut om te lezen als je er niet in zit. Dit is wat het doet

As a part of my makefile I have to do the following:

1. read a text file which contains one token at each line.
2. remove the leading underscore '_'
3. make the output as: "-G <line1> -G <line2>" etc.

Assuming we have file unix_keep_symbol.txt containing:

_A
_B
_C
quote:
Op donderdag 17 november 2005 14:36 schreef sigme het volgende:

[..]
Had ik al gezegd dat ik niet met dat potjes-engels van tutorials voor programeren overweg kan ?
Heeft u ook een op maat gesneden Nederlandse uitleg van de bedoeling van die printopdracht?

Je hebt toch geen tekstbestand met één teken op iedere lijn? Waarom miepen over underscores? Staan die in je tekst of moeten die erin komen?
ik moet verrassend weinig
Es ist heute schlecht und wird nun täglich schlechter werden, – bis das Schlimmste kommt
pi_32344656
nah, een makefile is zeg maar de handleiding die je helpt om code naar iets begrijpelijks te vertalen. Het doel doet er op zich niet toe. Het gaat om de tekstmodificatie.
Verdonk: we moet weer lachen om ons loonstrookje :')
Verdonk: niet links, ik ben niet rechts, maar recht door zee
journalist: niet scheel?
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')