Hello,


Ezuton a szeretnem megkerni PARCI -t arra, hogy a Bővebben: link cimen talalhato rss-be az uj hirek gyorsabban keruljenek ki, jelenleg 20 perc utan irodnak at, ezert nemtudjuk 'naprakeszen' olvasni a hireket, a masik gondom meg az, hogy a Bővebben: link cimen talalhato rss nem mukodik, kernem szepen mielobbi javitasat, elore is koszonom

slug

köszi az észrevételeket.

javítottam mindent elvileg, csekkold légyszi! (max 10 perces delay így is lehet a hírekben, az szándékos)

csekkolva, kosz

Egy gyors kérdés a PH!-s RSS-el kapcsolatban. A desktopomra szeretném kirakni az éppen aktuális híreket, de akárhogy próbálom dátummal és idővel együtt jelenik meg. Van arra mód, hogy ezek nélkül jelenítsem meg őket?

Ehhez valami olyan reader kellene, ami le tudja vagni a cim utolso X karakteret... en kisse nyakatekerten ugy oldottam meg, hogy egy script felorankent leszedi az rss-t, atengedi egy xml parseren, belovi egy mysql tablaba, es aztan a brozerem kezdooldalanak legeneralasakor a php megnyirbalja a cimeket...

Hát, jól van... Mondjuk nem teljesen tiszta, de nagyjából felfogtam...

Akkor közzé teszem azt, ami nekem leszedi, és az lenne a kérdés, hogy ki segítene átírni a fentieknek megfelelően:



'-----------------------------------------INFO---------------------------------------
' GetRssFeed V1.2 Script
'
' A small script to get rss feed.
'
' Installation: Unpack this file into your scripts folder in your samurize
' installation folder, and add it in your config. Run the GetNews()
' function. Two variables needs to be set, num_of_headlines wich is the
' number of headlines you want returned, and url wich is the url to the
' rss feed. The last option is if the script should return the channel title,
' USE: ''YES'' or ''NO''.
'
' Example getNews(5,''http://www.dagbladet.no/rss/oppdatert.xml'',''YES'')
'
'
' Version updates:
' - Rewrote script
' - Added stripping of html codes
' - Added possibility if returning more info
' - Added possibility of specifying the returnstring (idea from DeMo's Nforce script)
' - Added sorting on date, due to some feeds doesn't return titles cronologic
' - Added possibility to return channel title.
'
' Writers comment: I know here has already been posted a get slashdot rss
' feed script, but when I installed samurize yesterday the site was down
' so I didn't know about it. So I simply wrote my own. This script works
' with rss version 1.0, the rest I haven't tested. Enjoy the script.
'
' Contactinfo: http://www.samurize.com/modules/ipboard/index.php?showuser=5373
'------------------------------------------------------------------------------------

'-------------------------------------CONFIGURATION----------------------------------
const NO_ITEMS_FOUND = ''No news found.....'' 'Message to show if no news titles were found
const PERFORM_SORT = ''YES'' 'Perform sort of result or not, use ''YES'' or ''NO''
'
'I was a bit inspired by DeMos NForce script, so I added a feature where you can
'customize the output through ''smart tags''
'You can specify your own result using the following tags
'
'<time> = the time the item was published
'<date> = the date the item was published
'<datetime> = Full date time string of when the item was published
'<title> = The title of the item
'<link> = The link of the item (this will not make it clickable
'<description> = The description of the item
'<subject> = The subject of the title (Often used as the category)

const RETURN_FORMAT = ''<title>''

'---------------------------------DO NOT EDIT BELOW----------------------------------
Dim channelTitle, channelLink, channelDescription 'Info regargin feed
Dim aItems() 'Array to dump all items from feed due to sort of feed

function getNews(NUM_OF_TITLES,URL,RETURN_CHANNEL_TITLE)
parseNews URL
dim tmpResult, tmpReturnResult
if UCASE(RETURN_CHANNEL_TITLE)=''YES'' then
tmpReturnResult = channelTitle & chr(10)
else
tmpReturnResult = ''''
end if
if isArray(aItems) then
'Sort on date, due to some feeds not returning cronological
If PERFORM_SORT=''YES'' then QuickSort 4 End If
For i = 0 to Ubound(aItems,2)
tmpResult = RETURN_FORMAT
tmpResult = Replace(tmpResult,''<title>'',aItems(0,i))
tmpResult = Replace(tmpResult,''<link>'',aItems(1,i))
tmpResult = Replace(tmpResult,''<description>'',aItems(2,i))
tmpResult = Replace(tmpResult,''<subject>'',aItems(3,i))
tmpResult = Replace(tmpResult,''<time>'',FormatDateTime(aItems(4,i),4))
tmpResult = Replace(tmpResult,''<date>'',FormatDateTime(aItems(4,i),2))
tmpResult = Replace(tmpResult,''<datetime>'',aItems(4,i))
tmpReturnResult = tmpReturnResult & tmpResult&chr(10)
if i+1 = CInt(NUM_OF_TITLES) then exit for
Next
else
tmpReturnResult = NO_ITEMS_FOUND
end if
getNews = tmpReturnResult
end function 'getNews

Sub parseNews(url)
Dim intCnt, result
result = ''''
set source = CreateObject(''MSXML2.DOMDocument'')
source.async = false
source.validateOnParse = false
source.resolveExternals = false
source.load(url)
If source.parseError.errorCode <> 0 Then
parseRss = source.parseError.errorCode
exit sub
End if
set baseEl = source.documentElement.selectSingleNode(''channel'')
set titleEl = baseEl.selectSingleNode(''title'')
if NOT titleEl is Nothing then
'Get channel information
channelTitle=getText(''title'', baseEl)
channelLink=getText(''link'', baseEl)
channelDesc=getText(''description'', baseEl)
'Dump items to array
Set objLst = source.getElementsByTagName(''item'')
noOfHeadlines = objLst.length
intCnt=0
For i = 0 To (noOfHeadlines - 1)
Redim Preserve aItems(4,i)
Set objHdl = objLst.item(i)
'title=getText(''title'', objHdl)
aItems(0,i)=getText(''title'', objHdl)
aItems(1,i)=getText(''link'', objHdl)
aItems(2,i)=getText(''description'', objHdl)
aItems(3,i)=getText(''dc:subject'', objHdl)
aItems(4,i)=formatTheDate(getText(''dc:date'', objHdl))
intCnt=intCnt+1
'if intCnt=CInt(num_of_headlines) then exit for
Next
End If
Set source = nothing
Set baseEl = nothing
set titleEl = nothing
Set objLst = nothing
Set objHdl = nothing
end sub

Private function getText(ttg, xmlObj)
dim tmpText
tmpText=''''
set xEl = xmlObj.selectSingleNode(ttg)
if not xEl is Nothing then
tmpText=xEl.text
if left(tmpText,1)=''-'' then tmpText=Right(tmpText,len(tmpText)-1)
tmpText=stripHTML(Trim(tmpText))
end if
getText=tmpText
set xEl = nothing
end function

Private Function formatTheDate(tmpDate)
Dim iYear, iMonth, iDay, iHour, iMin, iSec, resDate
If Trim(''''&tmpDate)<>'''' then
iYear = Left(tmpDate,4)
iMonth = Mid(tmpDate,6,2)
iDay = Mid(tmpDate,9,2)
iHour = Mid(tmpDate,12,2)
iMin = Mid(tmpDate,15,2)
iSec = Mid(tmpDate,18,2)
resDate = DateSerial(iYear,iMonth,iDay)
resDate = DateAdd(''h'',iHour,resDate)
resDate = DateAdd(''n'',iMin,resDate)
resDate = DateAdd(''s'',iSec,resDate)
formatTheDate=resDate
Else
formatTheDate=Date()
end if
End Function 'formatTheDate

Sub SwapRows(row1,row2)
'== This proc swaps two rows of an array
Dim x,tempvar
For x = 0 to Ubound(aItems,1)
tempvar = aItems(x,row1)
aItems(x,row1) = aItems(x,row2)
aItems(x,row2) = tempvar
Next
End Sub 'SwapRows

Sub QuickSort(field)
Dim bolSorted,i
bolSorted = true
For i = 0 to ubound(aItems,2)-1
if aItems(field,i)<aItems(field,i+1) then
SwapRows i,i+1
bolSorted=false
End if
Next
if bolSorted=false then call QuickSort(field)
End Sub 'QuickSort

Private Function stripHTML(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = ''<(.|\n)+?>''
strOutput = objRegExp.Replace(strHTML, '''')
stripHTML = strOutput
Set objRegExp = Nothing
End Function


Tényleg hülye vagyok hozzá, szóval elmagyarázni senki ne próbálja, csak ha nagyon egyszerű... Még nézegetem a kódot, de nem hiszem, hogy okosabb leszek tőle...

[Szerkesztve]

VB-ül nem tudok, így csak tippelek... talán a aItems(0,i)=getText(''title'', objHdl) sort kellene megpiszkálni valahogy úgy hogy aItems(0,i)=Left(getText(''title'', objHdl), Len(getText(''title'', objHdl))-14 )... de mivel sem a nyelvet nem beszélem, sem van róla gőzöm hogy milyen adatstruktúrát használ a script, itt a vak vezetése világtalan által minősített esete forog fenn...

Ryu kolléga megoldotta a problémát. Ha esetleg valakinek ilyenre lenne szüksége, akkor itt a PH!-s RSS immáron dátum és idő nélkül: Bővebben: link

Sziasztok! Nme vagyok otthon a témában, most nézegetem Firefox-szal az RSS-dolgokat, a Ph! hírek már megvannak (a linket hozzá utólag vettem észre), a tesztekhez nem lehetne valahogy RSS-elérést biztosítani?

Srácok! Én ehhez totálisan nem értek () de vki tudna segíteni, hogy ezt az RSS-t milyen progival lehetne használni? Gondolok olyanra, hogy pl kirakja az asztalra, vagy egy kis ablakba, ami állandóan ''allways on top''.
Minden segítséget szívesen fogadok
Előre is köszi: Atesz

pl. operában van beépített rss olvasó, firefoxhoz meg biztos létezik ilyen célú kiterjesztés - ie 7-ben is lesz asszem. Vagy [link]

Rengeteg ilyen rss hírolvaso kliens van, pl: FeedForAll,Custom Reader(én ezt használom), Feedreader, Pluck, és álljon itt egy magyar is: RSSOwl

Egyetértek énis azzal, amit az elöttem szóló hozott fel: egy teszt xml-nek énis örülnék

Sziasztok.

A kérdésem az lenne, hogy a híreken kívül a teszteknek is lehetne-e RSS esetleg?

Előre is kösz.
Üdv.

Firefoxhoz Wizz RSS jó sztem, legalábbis megvagyok vele elégedve eddig.

[Szerkesztve]

Hali!

Azt hogy lehet megcsinálni, hogy a desktopomon megjelenjenek a hirek?

XP-ben nemtom. Vistában viszont már van ilyen a sidebaron, úgyhogy lesz benne.

Azért vhogy csak meg lehet csinálni, remélem.

a fentebb emlitett sidebar-hoz nagyban hasonlo letezik xp ala is => Bovebben: [link]

Megnézem, köszi a tippet!

Úgylátom, már ketten is kérdeztük a tesztes RSS-t, de válasz nemjött. Egy igen vagy nem elég lenne bőven.

nincs, lehet csinalok egyet, most hogy igy mondod

[Szerkesztve]