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.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?
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?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.
Bush was right! (geluidsversterker hiervoor nodig)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."
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.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?
Juist daaromquote: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.
Perl-voorbeeld:quote:Op donderdag 17 november 2005 14:23 schreef sigme het volgende:
[..]
Juist daaromIk 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?
| 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 | 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 |
Perl, foo, Foo en FOO klinken mij als Chinees in de oren. Oftewel, daarvan begrijp ik geen ene hout.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)
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
15If 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
| 1 2 3 4 5 6 7 8 9 10 11 12 | .ClearFormatting .Font.Bold = 1 .Replacement.ClearFormatting .Replacement.Font.Bold = 0 .Text = "*" .Execute FindText:="", _ ReplaceWith:="[b]^&[/b]", _ Format:=True, _ Replace:=Word.WdReplace.wdReplaceAll End With |
On Error Resume Nextquote: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!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.
http://www.limburgsdagbla(...)865-1248--%2C00.htmlquote:'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.''
Kun je niet iets maken met een Like operator, en een strPos (weet niet meer exact). ? , volgens mij gaat dat een stuk sneller.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.
Zoals ik al zei: ik heb er geen verstand van.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.
http://radio.about.com/library/reagan_bomb.mp3quote: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."
Neem deze dan ook even mee: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.
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
Het is ook best wel kut om te lezen als je er niet in zit. Dit is wat het doetquote:Op donderdag 17 november 2005 14:49 schreef sigme het volgende:
[..]
[afbeelding] Dat ziet er niet uit als iets wat ik begrijp..
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
Heeft u ook een op maat gesneden Nederlandse uitleg van de bedoeling van die printopdracht?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?
| Forum Opties | |
|---|---|
| Forumhop: | |
| Hop naar: | |