ik wil hem ook graag hebben
www.tri-state.nl
Een simpele.. met gelijk een vraag.
Dit is mn cfg:
clickable
Nu heb ik deze in 12 aparte ini's gehakt, om er dus 12 verschillende instances van te maken. Maar hoe voorkom ik dat ik 12 frckin' icons van samurize in mn tray krijg?
En let niet op de paar dingen die nog niet werken, hij's nog niet klaar
Dit is mn cfg:
clickableNu heb ik deze in 12 aparte ini's gehakt, om er dus 12 verschillende instances van te maken. Maar hoe voorkom ik dat ik 12 frckin' icons van samurize in mn tray krijg?
En let niet op de paar dingen die nog niet werken, hij's nog niet klaar
[ Voor 4% gewijzigd door geez op 02-03-2005 20:29 ]
:strip_icc():strip_exif()/u/102370/crop5db068b2dbcc9_cropped.jpeg?f=community)
Waarom wil je er 12 verschillende instances van maken? die snap ik niet? Wat bereik je ermee?:
Een simpele.. met gelijk een vraag.
Dit is mn cfg:
[afbeelding]clickable
Nu heb ik deze in 12 aparte ini's gehakt, om er dus 12 verschillende instances van te maken. Maar hoe voorkom ik dat ik geen 12 frckin' icons van samurize in mn tray krijg?
En let niet op de paar dingen die nog niet werken, hij's nog niet klaar
:strip_icc():strip_exif()/u/127630/ateam2Custom.jpg?f=community)
:strip_icc():strip_exif()/u/99021/Streepje.jpg?f=community)
Ik ben op zoek naar een soort graphic *of hoe je die kan maken*, hieronder het idee:
iemand?
iemand?
Gasloos! 3100Wp Z, 2150Wp W, Panasonic 5J monoblock, Panasonic 150L WPB
Ziet er allemaal geweldig uit 
Nu wil ik via een RSS feed scriptje bijv. de nieuwskoppen uitlezen, alleen het scriptje wat ik heb (van de samurize site) zet er zelf geen datum/tijd bij.
Welk scriptje gebruiken jullie voor dit?
Nu wil ik via een RSS feed scriptje bijv. de nieuwskoppen uitlezen, alleen het scriptje wat ik heb (van de samurize site) zet er zelf geen datum/tijd bij.
Welk scriptje gebruiken jullie voor dit?
Mijn mooie RSS feed doet niet wat ik wil, kan iemand even kijken naar het DPR file?
(Het is gebaseerd op deze RSS Feed van de Samurai site.
Het xml file wat ik wil uitlezen heeft meerdere strings die ik wil tonen en heb geprogrammeerd maar hij toont er maar 1. Ik weet niet waar ik een fout maak....
DPR script (ingekort)
// Function to return string between two strings boundaries (get something inside a tag for example)
function GetText(Start: string; Stop: string; Source: string): string;
var
N: Integer;
begin
N := Pos(Start, Source);
Source := Copy(Source, N + Length(Start), Length(Source));
N := Pos(Stop, Source);
GetText := Copy(Source, 1, N - 1);
end;
// Same as above but for second string ('cause it's not working
)
function GetText1(Start: string; Stop: string; Source: string): string;
var
G: Integer;
begin
G := Pos(Start, Source);
Source := Copy(Source, G + Length(Start), Length(Source));
G := Pos(Stop, Source);
GetText1 := Copy(Source, 1, G - 1);
end;
// Function to return a string after one string boundary
function After(Str: string; Source: string): string;
var
N: Integer;
begin
N := Pos(Str, Source);
After := Copy(Source, N + Length(Str), Length(Source));
end;
// Procedure that is given control over some objects to define the DLL usage and functions
function Init(): PChar; stdcall;
begin
Result := 'FetchRSS';
end;
// Procedure to Init the parameters of a function
//work to be done...>insert GetTekst parameters,say 3 from user input now predefined between <etc> and </etc>
function GetParam(Func: PChar): PChar; stdcall;
begin
if Func = 'FetchRSS' then
begin
Result := 'RSS Feed URL|number of news to display(1-30)|Update Interval (in minutes)|';
end;
end;
// The main function
function FetchRSS(Url: PChar; Number: PChar; UpdateInt: PChar): PChar; stdcall;
var
Final, S, G: string; F: string;
I, C: Integer;
begin
if StrStream.Size = 0 then // Is the StringStream empty ? (functions first time run) Then get the file
GetInetFile(Url, StrStream);
if Now >= AddMinutes(LastCall, StrToInt(string(UpdateInt))) then
begin
LastCall := Now;
GetInetFile(Url, StrStream);
end;
C := StrToInt(string(Number));
S := StrStream.DataString;
for I := 1 to C do
begin
F := GetText('<title>', '</title>', S);
G := GetText1('<description>', '</description>', G);
S := GetText('</item>', S);
Final := Final + F + G + '%b';
end;
Result := StrAlloc(Length(Final));
StrCopy(Result, PChar(Final));
end;
(Het is gebaseerd op deze RSS Feed van de Samurai site.
Het xml file wat ik wil uitlezen heeft meerdere strings die ik wil tonen en heb geprogrammeerd maar hij toont er maar 1. Ik weet niet waar ik een fout maak....
DPR script (ingekort)
// Function to return string between two strings boundaries (get something inside a tag for example)
function GetText(Start: string; Stop: string; Source: string): string;
var
N: Integer;
begin
N := Pos(Start, Source);
Source := Copy(Source, N + Length(Start), Length(Source));
N := Pos(Stop, Source);
GetText := Copy(Source, 1, N - 1);
end;
// Same as above but for second string ('cause it's not working
)function GetText1(Start: string; Stop: string; Source: string): string;
var
G: Integer;
begin
G := Pos(Start, Source);
Source := Copy(Source, G + Length(Start), Length(Source));
G := Pos(Stop, Source);
GetText1 := Copy(Source, 1, G - 1);
end;
// Function to return a string after one string boundary
function After(Str: string; Source: string): string;
var
N: Integer;
begin
N := Pos(Str, Source);
After := Copy(Source, N + Length(Str), Length(Source));
end;
// Procedure that is given control over some objects to define the DLL usage and functions
function Init(): PChar; stdcall;
begin
Result := 'FetchRSS';
end;
// Procedure to Init the parameters of a function
//work to be done...>insert GetTekst parameters,say 3 from user input now predefined between <etc> and </etc>
function GetParam(Func: PChar): PChar; stdcall;
begin
if Func = 'FetchRSS' then
begin
Result := 'RSS Feed URL|number of news to display(1-30)|Update Interval (in minutes)|';
end;
end;
// The main function
function FetchRSS(Url: PChar; Number: PChar; UpdateInt: PChar): PChar; stdcall;
var
Final, S, G: string; F: string;
I, C: Integer;
begin
if StrStream.Size = 0 then // Is the StringStream empty ? (functions first time run) Then get the file
GetInetFile(Url, StrStream);
if Now >= AddMinutes(LastCall, StrToInt(string(UpdateInt))) then
begin
LastCall := Now;
GetInetFile(Url, StrStream);
end;
C := StrToInt(string(Number));
S := StrStream.DataString;
for I := 1 to C do
begin
F := GetText('<title>', '</title>', S);
G := GetText1('<description>', '</description>', G);
S := GetText('</item>', S);
Final := Final + F + G + '%b';
end;
Result := StrAlloc(Length(Final));
StrCopy(Result, PChar(Final));
end;
:strip_exif()/u/18861/MRice-avatar.gif?f=community){kind=avatar}
Mensen,
Ik heb met HSI een margin gemaakt op mn desktop álá 40px bottom. Mijn programma's luisteren braaf, alleen mijn SS config ook...
Wat ik dus wil is daar een margin en dat daar dan nog wel mijn SS config te zien is. Met standaard info etc...
Weet iemand een oplossing?
Ik heb met HSI een margin gemaakt op mn desktop álá 40px bottom. Mijn programma's luisteren braaf, alleen mijn SS config ook...
Wat ik dus wil is daar een margin en dat daar dan nog wel mijn SS config te zien is. Met standaard info etc...Weet iemand een oplossing?
Gasloos! 3100Wp Z, 2150Wp W, Panasonic 5J monoblock, Panasonic 150L WPB
/u/68474/blitzwing60.png?f=community)
ik heb de laatste paar dagen een config/skin met 3 verschillende teams gemaakt.
het kan zijn dat er nog wat fouten in zitten, maar voor zover ik weet is hij af.
hier de screenshots van de 3 themes:
Aero:
Blue:
Metal:
en dit is het "package" bestand inclusief de 3 thema's
tell me what you think of it
het kan zijn dat er nog wat fouten in zitten, maar voor zover ik weet is hij af.
hier de screenshots van de 3 themes:
Aero:
Blue:
Metal:
en dit is het "package" bestand inclusief de 3 thema's
tell me what you think of it
antwoord op 1e vraag: ik denk dat het tekenen niet moeilijk is, het word alleen lastig om er metertjes van te maken omdat het nogal "aparte" vormen zijn.
antwoord op 2e vraag: als die vraag voor mij bedoeld is, jep
zelfs die aero skin heb ik zelf gedaan
[ Voor 16% gewijzigd door megatronic op 20-03-2005 22:07 ]
netjes heur! Ehm, ik denk dat jij een andere post voor je ziet, ik bedoelde deze post!
//edit:
jij bedoelde waarscheinlijk deze post... Ja, het maken ervan zal wel het makkelijkst zijn van het geheel
Ik zat zelf te denken aan 1 grote breede progressbar en daar een soort "masker" overheen te knikkeren van het zelfde kleurtje als de achtergrond. Dan kan je precies de vorm die jij wil eruit laten springen!
//edit:
jij bedoelde waarscheinlijk deze post... Ja, het maken ervan zal wel het makkelijkst zijn van het geheel
Ik zat zelf te denken aan 1 grote breede progressbar en daar een soort "masker" overheen te knikkeren van het zelfde kleurtje als de achtergrond. Dan kan je precies de vorm die jij wil eruit laten springen!
[ Voor 56% gewijzigd door stevenP op 21-03-2005 07:21 ]
Gasloos! 3100Wp Z, 2150Wp W, Panasonic 5J monoblock, Panasonic 150L WPB
gimmy gimmy gimmy
Heb jij anders msn? add me maar knip
[ Voor 8% gewijzigd door stevenP op 25-03-2005 19:47 ]
Gasloos! 3100Wp Z, 2150Wp W, Panasonic 5J monoblock, Panasonic 150L WPB
Ik zag bij iemand een script van het weer in Eindhoven (volgens mij MRic3), kun je deze even posten want ik zit ook in die omgeving (Liempde) en ik snap er niks van 
You only need 2 tools, WD40 and Ducttape. WD40 when something doesn't move and it should, ducttape when something moves and it shouldn't.
Verwijderd
Ik ben ook weer eens gaan kloten met Samurize Tentamenweek, je moet toch wat he...
Hier even een screenie... als iemand iets uit mijn config wil hebben stuur ik het betreffende deel wel op. Heb nu al 3 instances namelijk...
Alle Trackers (behalve Recente GoT Topics) en Tvgids zijn linked...
Ik zoek dus nog een GoT en een NU Nieuws script/plugin... Belangrijkste is dat de topics klikbaar worden, linked dus...
Tentamenweek, je moet toch wat he...Hier even een screenie... als iemand iets uit mijn config wil hebben stuur ik het betreffende deel wel op. Heb nu al 3 instances namelijk...
Alle Trackers (behalve Recente GoT Topics) en Tvgids zijn linked...
Ik zoek dus nog een GoT en een NU Nieuws script/plugin... Belangrijkste is dat de topics klikbaar worden, linked dus...
/u/91594/crop670f840bd8665_cropped.png?f=community)
Weet iemand een script dat uit de folder waaruit iTunes op het moment speelt de "folder.jpg" wordt gehaald? Dus stel iTunes speelt het bestand C:\Muziek/leuk.mp3, dan wordt automatisch C:\Muziek/folder.jpg ge"fetched".
Oja, mijn config atm :
Klikbaar. Oja, die kalender is Rainlendar en niet Samurize
Oja, mijn config atm
:
Klikbaar. Oja, die kalender is Rainlendar en niet Samurize
leoaq.fm // Jeune Loop
/u/18178/logo-60x60.png?f=community){kind=logo}
---
Prozium - The great nepenthe. Opiate of our masses. Glue of our great society. Salve and salvation, it has delivered us from pathos, from sorrow, the deepest chasms of melancholy and hate
Wat voor een skin/icon's gebruik jij? Ik mag dat wel denk ik zo. Ziet er uit als de officiele roal skin met zilver achtig kleurtje =) sound's cool!:
Weet iemand een script dat uit de folder waaruit iTunes op het moment speelt de "folder.jpg" wordt gehaald? Dus stel iTunes speelt het bestand C:\Muziek/leuk.mp3, dan wordt automatisch C:\Muziek/folder.jpg ge"fetched".
Oja, mijn config atm
[afbeelding]
Klikbaar. Oja, die kalender is Rainlendar en niet Samurize
Gasloos! 3100Wp Z, 2150Wp W, Panasonic 5J monoblock, Panasonic 150L WPB
:strip_exif()/u/77645/wollenpakmansalto.gif?f=community)
Wallpaper Aston Martin DB9!
van HighResAutoImages.comSamurize-config, al een paar keer geshowd, maar hij is weer een weinig vernieuwd
preview van mijn samurize config: SideBar 4.0 FINAL:
wat vinden jullie er van??
PS:
en natuurlijk zitten er ook de oude skins in!
(zie: http://www.samurize.com/m...efile.php?cid=18&lid=1533 )
wat vinden jullie er van??
PS:
en natuurlijk zitten er ook de oude skins in!
(zie: http://www.samurize.com/m...efile.php?cid=18&lid=1533 )
Dude, koop een Mac 
En je had me bijna overtuigd dat het een echte Mac was, helaas verraadde de 'C:\' je en natuurlijk het feit dat Samurize helemaal niet voor Mac OS X bestaat
En je had me bijna overtuigd dat het een echte Mac was, helaas verraadde de 'C:\' je
en natuurlijk het feit dat Samurize helemaal niet voor Mac OS X bestaat
ik wil ook heeeel graag een macje! (maar alleen geen geld voor!, ben nog maar 17!:
Dude, koop een Mac
En je had me bijna overtuigd dat het een echte Mac was, helaas verraadde de 'C:\' je
)maar wat vind je van me sam. config?
Ziet er erg netjes uit! Alleen ben ik bang dat als je een andere achtergrond neemt dat hij wat kan vloeken...:
[...]
ik wil ook heeeel graag een macje! (maar alleen geen geld voor!, ben nog maar 17!
maar wat vind je van me sam. config?
offtopic:
Hier is er nog een die op mac zit te kweilen maar ook pas bijna 15 is
Hier is er nog een die op mac zit te kweilen maar ook pas bijna 15 is
Gasloos! 3100Wp Z, 2150Wp W, Panasonic 5J monoblock, Panasonic 150L WPB
Ik vind hem super! Kan je misschien ook vertellen wat voor theme je gebruikt voor je startbalk bovenaan? En je icons/wallpaper?
Songbird | She's a little violet in my mind Singing songs she loves to pass the time
Die icons zijn iets van Xiantic icons oid, zaten bij een theme dat ik 4 jaar geleden heb gedownload oid
Het theme:
http://www.deviantart.com/deviation/8521744/
leoaq.fm // Jeune Loop
:strip_exif()/u/104026/862853827422aba77f3c34.gif?f=community)
:strip_icc():strip_exif()/u/54714/up_dog_klein.jpg?f=community)
Ik heb het DutchTV script hiero geinstalleerd, en het werkte perfect... nu zegtie alleen dat de 'site format has been changed'...
iemand anders ook last van?
Jammer, twerkte zo mooi...
iemand anders ook last van?
Jammer, twerkte zo mooi...
-[ Het Kwartjuh Valt... ]-
Hier is het ook zo. Dacht dat het tijdelijk was, maar het is nu al sinds vanochtend zo. Bij mij zegt hij alleen : "Unable to obtain data...":
Ik heb het DutchTV script hiero geinstalleerd, en het werkte perfect... nu zegtie alleen dat de 'site format has been changed'...
iemand anders ook last van?
Jammer, twerkte zo mooi...
En het zal ook zo blijven helaas
vroeger werd in het script de informatie gehaald van:
www.tvgids.nl/nustraks.php
en aangezien www.tvgids.nl nu helemaal veranderd is is de vernieuwde link dit:
http://www.tvgids.nl/nust...minuut=&datum=&volledig=1
alleen de pagina layout & html code is ook helemaal veranderd, dus met alleen het veranderen van de url in het dutchTV script kom je er niet.
Het word dus wachten op een nieuw script wat aangepast is op de nieuwe pagina van www.tvgids.nl
Voor het eenvoudigste zoeken naar alle chinese webshops: www.chinapricefinder.com
:strip_icc():strip_exif()/u/118648/avatar_electronical.jpg?f=community){kind=avatar}
I do not fear computers, I fear the lack of them - Isaac Asimov
"With enough eyeballs, all bugs are shallow" - Eric Raymond
:strip_icc():strip_exif()/u/43579/Caspertweaker.jpg?f=community)
:
hmm ze hebben hem inderdaad aangepast.. kan ik mijn scripts ook weer gaan veranderen..
Kwam er ook achter. Hopelijk komt er snel een update!
Nederlander in België
:strip_icc():strip_exif()/u/11901/avatar.jpg?f=community){kind=avatar}
Heb het script weer werkend gekregen... Wie test er mee?:
hmm ze hebben hem inderdaad aangepast.. kan ik mijn scripts ook weer gaan veranderen..
code:
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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
| ' ============================================================================
' DutchTV.vbs v1.5 Origional by -NeM
' ============================================================================
' Retrieves TV listings from http://www.tvgids.nl/nustraks.php (Dutch TV
' listings)
' Made by request from the Samurize forums:
' http://www.samurize.com/forum/viewtopic.php?id=1426
' ======
' USAGE:
' ======
' 1) Copy DutchTV.vbs to your Samurize/scripts folder
' 2) Add an ActiveScript meter to your Samurize config with this script
' selected and 'generateListing' selected as the Function.
' 3) Use TextFile meters to view the TV Listings. Each TV channel has 3
' lines of information and is listed in the following order:
' Nederland 1 (lines 1-3)
' Nederland 2 (lines 4-6)
' Nederland 3 (lines 7-9)
' RTL 4 (lines 10-12)
' RTL 5 (lines 13-15)
' SBS 6 (lines 16-18)
' Net 5 (lines 19-21)
' Veronica (lines 22-24)
' Yorin (lines 25-27)
' V8 (lines 28-30)
' VRT TV1 (lines 31-33)
' KETNET/Canvas (lines 34-36)
' VTM (lines 37-39)
' Kanaal 2 (lines 40-42)
' VT4 (lines 43-45)
' So, for example, to see the listings for V8, Add a TextFile meter, point
' it to the DutchTV.txt file, set the Read Line field to 43 and the Number
' of Lines field to 3.
' =============
' V1.5 CHANGES:
' =============
' - First version for new TVGids.nl layout
' =============
' V1.31 CHANGES:
' =============
' - fix for empty/weird strings
' - hyperlinks the tv program to the corresponding detail page at tvgids.nl
' =============
' V1.2 CHANGES:
' =============
' - fixed night listings bug
' - fixed bug with shows that had a range (xx:xx-yy:yy) for their listing time
' - support for more channels
' =============
' V1.1 CHANGES:
' =============
' - fixed bug where no listing is given for a particular channel
' ============================================================================
' USER SETTINGS
' ============================================================================
SHOW_STARTTIMES = True ' set to False if you don't want the start
' times displayed
' ============================================================================
FILE_NAME = "DutchTV.txt"
NUM_CHANNELS = 45
Function generateListing()
Dim fs,f,htmlResult,textToWrite
htmlResult = ReturnHTML("http://www.tvgids.nl/nustraks/index.php?uur=&minuut=&datum=&volledig=1")
If InStr(htmlResult, "<title>TVGids.nl</title>") = 0 Then
textToWrite = "Site format has changed." & vbCrlf & "Script has failed." & htmlResult
Else
For i=1 To NUM_CHANNELS
textToWrite = textToWrite & getListing(i, htmlResult) & vbCrlf
Next
End If
set fs=CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(FILE_NAME,true)
f.write(textToWrite)
f.close
set f=nothing
set fs=nothing
End Function
Private Function getListing(Channel,htmlResult)
' first cut everything before <table width="100%">
strAllInfo = Mid(htmlResult, InStr(htmlResult, "<table border=""0"" cellspacing=""0"" cellpadding=""0"">"))
For i=1 to Channel
' skip to correct channel
strAllInfo = Mid(strAllInfo, InStr(strAllInfo, "</tr>")+5, Len(strAllInfo))
Next
' cut everything after the end of the listings for this channel
endChannelPos = InStr(strAllInfo, "</tr>")
strAllInfo = Mid(strAllInfo, 1, endChannelPos)
' getListing = "-->" & strAllInfo & VbCrLf & VbCrLf & VbCrLf
' get the channel name
startPos = InStr(strAllInfo, "<span>") + 6
endPos = InStr(strAllInfo, "</span>")
channelName = Mid(strAllInfo, startPos, (endPos-startPos))
'getListing = channel & " " & startPos & "-" & endPos & channelName
strAllInfo = Mid(strAllInfo, endPos+7)
' get start time of what's on now
startPos = InStr(strAllInfo, "<th") + 15
endPos = InStr(strAllInfo, "</th>")
startTime = Mid(strAllInfo, startPos, (endPos-startPos))
if Len(startTime) <=1 Then
' no listing
' strAllInfo = Mid(strAllInfo, InStr(strAllInfo, "32%"))
' startPos = InStr(strAllInfo, ">") + 5
' endPos = InStr(startPos, strAllInfo, "</td>") - 3
else
' listing
strAllInfo = Mid(strAllInfo, endPos+5)
' ' get what's on now
startPos = InStr(strAllInfo, "<div>") + 5
' startPos = InStr(strAllInfo, "valign=""top"">") + 13
endPos = InStr(startPos, strAllInfo, "</td>")
end if
If SHOW_STARTTIMES = True Then
if InStr(startTime, ":")<1 Then
nowShowing = ""
Else
nowShowing = TrimHTML(startTime) & " "
End if
End If
' next line added to support hyperlinks
strLinkprogramma = Mid(strAllInfo, InStr(strAllInfo, "?ID=")+4, 7)
' clean up the string
temp = Mid(strAllInfo, startPos, (endPos-startPos))
' next If-statement added to support hyperlinks
If IsNumeric(strLinkprogramma) Then
temp = temp & "%lhttp://www.tvgids.nl/programmadetail/?ID=" & strLinkprogramma
End If
temp = replace(temp, vbCr, "")
temp = replace(temp, vbTab, "")
temp = replace(temp, vbLf, "")
temp = replace(temp, vbCrLf, "")
temp = Trim(TrimHTML(temp))
nowShowing = nowShowing & temp
strAllInfo = Mid(strAllInfo, endPos+5)
' get start time of what's on next
startPos = InStr(strAllInfo, "straks"">") + 8
endPos = InStr(strAllInfo, "</th>")
startTime = Mid(strAllInfo, startPos, (endPos-startPos))
strAllInfo = Mid(strAllInfo, endPos+5)
' get what's on next
startPos = InStr(strAllInfo, "<div>") + 5
endPos = InStr(startPos, strAllInfo, "</div>")
If SHOW_STARTTIMES = True Then
if InStr(startTime, ":")<1 Then
nextShowing = ""
Else
nextShowing = TrimHTML(startTime) & " "
End If
End If
' next line added to support hyperlinks
strLinkprogramma = Mid(strAllInfo, InStr(strAllInfo, "?ID=")+4, 7)
If startPos > 0 and endPos > 0 Then
' clean up the string
temp = Mid(strAllInfo, startPos, (endPos-startPos))
else
temp = ""
end if
' next If-statement added to support hyperlinks
If IsNumeric(strLinkprogramma) Then
temp = temp & "%lhttp://www.tvgids.nl/programmadetail/?ID=" & strLinkprogramma
End If
temp = replace(temp, vbCr, "")
temp = replace(temp, vbTab, "")
temp = replace(temp, vbLf, "")
temp = replace(temp, vbCrLf, "")
temp = Trim(TrimHTML(temp))
nextShowing = nextShowing & temp
' return listing
getListing = channelName & vbCrlf & nowShowing & vbCrlf & nextShowing
End Function
Private Function ReturnHTML(sURL)
Dim objXMLHTTP,HTML
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
Randomize
sURL = sURL & "&" & Rnd
objXMLHTTP.Open "GET", sURL, False
objXMLHTTP.Send
HTML = objXMLHTTP.responseBody
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", 200, 45000, &H00000080
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk HTML
ReturnHTML = objRS("txt").Value
objRS.Close
Set objRS = Nothing
Set objXMLHTTP = Nothing
End Function
'very simple function that will remove all html tags
Private Function TrimHTML(str)
pos_deb = InStr(1, str, "<")
Do Until pos_deb = 0
pos_fin = InStr(pos_deb, str, ">")
part_d = Mid(str, 1, pos_deb - 1)
part_f = Mid(str, pos_fin + 1, Len(str) - pos_fin)
str = part_d & part_f
pos_deb = InStr(1, str, "<")
Loop
TrimHTML = Trim(str)
End Function |
I do not fear computers, I fear the lack of them - Isaac Asimov
"With enough eyeballs, all bugs are shallow" - Eric Raymond
Verwijderd
Ik heb dat script voor dutchTV ook gekopieerd in de script file, opzich werkt het nu wel weer, alleen is het nu 11:45 uur en zie ik welke programma's er om 7.00 uur zijn 
wat moet ik in het script aanpassen zodat ik de juiste tijdsbepaling heb
wat moet ik in het script aanpassen zodat ik de juiste tijdsbepaling heb
Verwijderd
Verwijder "uur=&minuut=&datum=&" uit de URL:
Ik heb dat script voor dutchTV ook gekopieerd in de script file, opzich werkt het nu wel weer, alleen is het nu 11:45 uur en zie ik welke programma's er om 7.00 uur zijn
wat moet ik in het script aanpassen zodat ik de juiste tijdsbepaling heb
:strip_exif()/u/52703/crop6147f7b3384e7.gif?f=community)
:strip_icc():strip_exif()/u/32466/crop5a8584c26195b_cropped.jpeg?f=community)
Hier werkt het tv-script ook weer Maar hij laat nu per zender maar een regel zien, waar het er vroeger twee waren: wat nu op de zender is en wat er na komt. Ik heb netjes ingesteld dat hij twee regels moet ophalen uit DutchTV.txt, maar hij pakt er steeds maar eentje. Iemand een oplossing?
Maar hij laat nu per zender maar een regel zien, waar het er vroeger twee waren: wat nu op de zender is en wat er na komt. Ik heb netjes ingesteld dat hij twee regels moet ophalen uit DutchTV.txt, maar hij pakt er steeds maar eentje. Iemand een oplossing?
Beter remmen=sneller racen: loadcellmod
Ja. Laat elke textmeter maar één regel uitlezen.:
Hier werkt het tv-script ook weer
Maak dus een nieuwe textmeter aan voor elke uit te lezen regel
Zo doe ik het eigenlijk altijd al en het werkt prima..
[ Voor 14% gewijzigd door Rone op 22-04-2005 17:36 ]
PC1: 9800X3D + RX 9070 XT || PC2: 5800X3D + RTX 3080 || Laptop: 7735HS + RTX 4060
:strip_icc():strip_exif()/u/1158/twister-icon-nw.jpg?f=community){kind=icon}
Ik heb het net anders gedaan en dat is de hyperlink funktie eruit slopen.:
[...]
Ja. Laat elke textmeter maar één regel uitlezen.
Maak dus een nieuwe textmeter aan voor elke uit te lezen regel
Zo doe ik het eigenlijk altijd al en het werkt prima..
Haal het volgende weg (of maar er comment van in de code: ' ervoor zetten).
code:
1
2
3
4
5
6
| strLinkprogramma = Mid(strAllInfo, InStr(strAllInfo, "?ID=")+4, 7) ' next If-statement added to support hyperlinks If IsNumeric(strLinkprogramma) Then temp = temp & "%lhttp://www.tvgids.nl/programmadetail/?ID=" & strLinkprogramma End If |
NB het komt 2x in de file voor.
Het werkt! Bedankt!
De oplossing van steeds een nieuwe regel had ik ook in mijn achterhoofd, maar dit is net iets mooier
Beter remmen=sneller racen: loadcellmod
:strip_exif()/u/22670/td_icon2.gif?f=community)
:strip_exif()/u/96580/headsmack.gif?f=community)
:strip_icc():strip_exif()/u/10520/icon.jpg?f=community){kind=icon}
:strip_icc():strip_exif()/u/123426/anti-ipod-.jpg?f=community)
Hmm, ik krijg steeds de melding dat er een fout in de client is opgetreden en dat ie moet worden afgesloten... meer mensen hier last van?
Ik draai em op Win XP SP2.
Als ik verder niks met die foutmelding doe, dus em gewoon laat staan, dan blijft ie ook gewoon draaien
Ik draai em op Win XP SP2.
Als ik verder niks met die foutmelding doe, dus em gewoon laat staan, dan blijft ie ook gewoon draaien
hmmm.... ik zie die optie niet bij mij staan als ik een regel selecteer? Ook niet als ik het script selecteer....welke versie samurize heb jij? ik de nieuwste iig....waar zou dit aan liggen??
[ Voor 11% gewijzigd door robg1984 op 23-04-2005 15:44 ]
:strip_icc():strip_exif()/u/78771/sluuut.jpg?f=community)
Kan jij je ini posten?
Ik ben vandaag voor het eerst bezig met Samurize, moet zeggen dat als je er eenmaal mee bezig bent het heel erg makkelijk is, alleen in het begin denk je van wtf is dit...
Screenie van wat ik nu heb;
http://home.planet.nl/~lind1469/samurize.jpg
Ik heb het DutchTV.vbs script proberen te gebruiken maar wanneer ik Test doe krijg ik dit te zien;
In het script staat er op die regel:
code:
1
| Set objRS = Nothing |
Iemand enig idee wat er fout gaat?
[ Voor 22% gewijzigd door Sluuut op 23-04-2005 20:11 ]
57696520646974206c65657374206973206e657264
:strip_icc():strip_exif()/u/16096/dystic.jpg?f=community)
![[afbeelding]](http://www.spa-ruud.com/filehost/tweakers_net/images/Screenshot.jpg){kind=link}
![[afbeelding]](http://www.telebyte.nl/~ftilman/temp/desktop250105.jpg){kind=link}
![[afbeelding]](http://4aal.nl/temp/samurize.jpg){kind=link}
Ja dat heb ik hier ook af en toe, geen idee wat ik ermee moet, na een restart werkt het meestal wel weer:
Hmm, ik krijg steeds de melding dat er een fout in de client is opgetreden en dat ie moet worden afgesloten... meer mensen hier last van?
Ik draai em op Win XP SP2.
Als ik verder niks met die foutmelding doe, dus em gewoon laat staan, dan blijft ie ook gewoon draaien
Precies, ik zat hier ook mee inderdaad.. Draai op het moment geen SS *shame
maar vroeger met nu.nl en t.net heb ik er ook mee zitten worstelen!
Gasloos! 3100Wp Z, 2150Wp W, Panasonic 5J monoblock, Panasonic 150L WPB
