xml阅读器| 耗时:0.275秒|56437条结果

【VB.NET】自己写的阅读器类源码

我经常看小说,所以自己写了个阅读器,里面涉及了一些知识,我放出来,一是记录方便我以后忘了可以查看,二是供需要的朋友参考。 如果代码有不足之处或有更好的方法,可以的话请留言交流,感激不尽! iLabel.class(用户控件) Public Class iLabel Private iText As String = "" Private iFontSize As Single = 12 Private iFontBold As Boolean = True Private iFontName As String = "微软雅黑" Private iFontColor As Color = Color.White Private iFontBackColor As Color = Color.Black Public Sub SetText(ByVal T As String) iText = T : ReDraw() End Sub Public Function GetText() As String Return iText End Function Public Sub SetFont(Optional ByVal FontSize As Single = 0, _ Optional ByVal FontBold As Boolean = True, _ Optional ByVal FontName As String = "") If FontSize > 0 Then iFontSize = FontSize If FontBold <> iFontBold Then iFontBold = FontBold If FontName.Length > 0 Then Try Dim tFont As New Font(FontName, 12) iFontName = FontName Catch ex As Exception End Try End If ReDraw() End Sub Public Function GetFontName() As String Return iFontName End Function Public Function GetFontSize() As Single Return iFontSize End Function Public Function IsFontBold() As Boolean Return iFontBold End Function Public Function GetFontColor() As Color Return iFontColor End Function Public Function GetBackColor() As Color Return iFontBackColor End Function Public Sub SetColor(ByVal FontColor As Color, ByVal BackColor As Color) iFontBackColor = BackColor Me.BackColor = BackColor iFontColor = FontColor ReDraw() End Sub Public Sub SetSize(Optional ByVal Width As Integer = 0, _ Optional ByVal Height As Integer = 0, _ Optional ByVal Text As String = "", _ Optional ByVal Left As Integer = 0, _ Optional ByVal Top As Integer = 0) With Me If Left > 0 Then .Left = Left If Top > 0 Then .Top = Top If Width > 0 Then .Width = Width If Height > 0 Then .Height = Height End With If Text.Length > 0 Then iText = Text ReDraw() End Sub Public Function GetSize() As Size Return Me.Size End Function Public Sub ReDraw() Dim nBrush As New SolidBrush(iFontColor) Dim font As New Font(iFontName, iFontSize, CType(IIf(iFontBold, FontStyle.Bold, FontStyle.Regular), FontStyle)) Me.Font = font Dim bmp As New Bitmap(Me.Width, Me.Height) Dim g = Graphics.FromImage(bmp) Dim sizef As SizeF = g.MeasureString(iText, font) Dim top As Single = (Me.Height - sizef.Height) / 2 g.Clear(iFontBackColor) TextRenderer.DrawText(g, iText, font, New Point(0, top), iFontColor) 'g.DrawString(iText, font, nBrush, 0, top) Me.BackgroundImage = bmp g = Nothing : bmp = Nothing End Sub Private Sub iLabel_Invalidated(sender As Object, e As InvalidateEventArgs) Handles Me.Invalidated Dim font As New Font(iFontName, iFontSize, CType(IIf(iFontBold, FontStyle.Bold, FontStyle.Regular), FontStyle)) Me.Font = font End Sub End Class TXTClass.vb(类) Public Class TXTClass Private TxtParagraghCount As Integer '文本总段落数 Private TxtParagraghIndex As Integer '文本当前段落引索 Private iTxt() As String '以段落为元素组成集合 Private iTxtPath As String '文本文件位置 Private TxtWordCount As Long '文本总文字数 Public Enum TXTClass_Enum_TState '当前文本状态枚举 NoTxt = 0 '未打开任何文本文件 InHead = 1 '已打开文件,且当前段落引索在文件头 InMiddle = 2 '已打开文件,且当前段落引索在文件中部 InTail = 3 '已打开文件,且当前段落引索在文件尾 End Enum Private iTxtState As TXTClass_Enum_TState '当前文本状态 Public Sub New() TxtParagraghCount = 0 : TxtParagraghIndex = 0 : iTxtPath = "" ReDim iTxt(0) : TxtWordCount = 0 iTxtState = TXTClass_Enum_TState.NoTxt End Sub Public Function OpenTxt(ByVal FilePath As String, _ Optional ByVal FileCheck As Boolean = False, _ Optional ByVal HasRecord As Boolean = False) As Boolean Try If Not (FileCheck OrElse (FilePath.Length > 0 AndAlso IO.File.Exists(FilePath))) Then Return False Dim Tmp As String Dim TmpTxt() As String Dim TmpTxtParagraghCount As Integer Dim TmpWordCount As Long Dim iReader As IO.StreamReader '尝试打开文件并尝试获取相关信息 Try iReader = New IO.StreamReader(FilePath, System.Text.Encoding.Default) Tmp = iReader.ReadToEnd : iReader.Dispose() TmpTxt = Split(Tmp, vbNewLine) TmpTxtParagraghCount = TmpTxt.Length If Not HasRecord Then TmpWordCount = Tmp.LongCount Catch ex As Exception MsgBox("方法:TXTClass.OpenTxt() '尝试打开文件并获取信息' 执行出错!", , "错误提示") Return False End Try '成功打开文件和获取信息,下面清除原来的信息并写入新文件信息 If Not CloseTxt() Then Return False iTxt = TmpTxt If Not HasRecord Then '如果没有记录文件,则使用默认信息 TxtParagraghCount = TmpTxtParagraghCount : TxtParagraghIndex = -1 TxtWordCount = TmpWordCount iTxtState = TXTClass_Enum_TState.InHead Else '如果有记录文件则使用记录的信息 End If iTxtPath = FilePath Return True Catch ex As Exception MsgBox("方法:TXTClass.OpenTxt() 执行出错!", , "错误提示") Return False End Try End Function Public Function CloseTxt() As Boolean Try ReDim iTxt(0) : iTxtState = TXTClass_Enum_TState.NoTxt TxtParagraghCount = 0 : TxtParagraghIndex = 0 TxtWordCount = 0 Return True Catch ex As Exception MsgBox("方法:TXTClass.CloseTxt() 执行出错!", , "错误提示") Return False End Try End Function Public Function GetTxtState() As TXTClass_Enum_TState Return iTxtState End Function Public Function GetParagraghCount() As Integer Return IIf(iTxtState = TXTClass_Enum_TState.NoTxt, -1, TxtParagraghCount) End Function Public Function GetParagraghIndex() As Integer Return IIf(iTxtState = TXTClass_Enum_TState.NoTxt, -1, TxtParagraghIndex) End Function Public Function SetParagraghIndex(ByVal Index As Integer) As Boolean Try If Index >= 0 AndAlso Index < TxtParagraghCount Then TxtParagraghIndex = Index Return True End If Catch ex As Exception MsgBox(ex.ToString, , "错误提示") Return False End Try End Function Public Function GetWordCount() As Long Return IIf(iTxtState = TXTClass_Enum_TState.NoTxt, -1, TxtWordCount) End Function Public Function IsHOF() As Boolean 'HeadOfFile '等同 return iif(iTxtState=TXTClass_Enum_TState.InHead,true,false) Return IIf(TxtParagraghIndex <= 0, True, False) End Function Public Function IsEOF(Optional ByVal Index As Integer = -1) As Boolean 'EndOfFile If Index = -1 Then '等同 return iif(iTxtState=TXTClass_Enum_TState.InTail,true,false) Return IIf(TxtParagraghIndex >= TxtParagraghCount - 1, True, False) Else Return IIf(Index >= TxtParagraghCount - 1, True, False) End If End Function Public Function NextParagragh(Optional ByVal WithoutChange As Boolean = True) As String Try '判断是否已打开文件 If iTxtState = TXTClass_Enum_TState.NoTxt Then Return "" If WithoutChange Then '如果只是读取而不改变段落引索 Return IIf(iTxtState = TXTClass_Enum_TState.NoTxt, "", _ IIf(TxtParagraghIndex + 1 >= TxtParagraghCount, "已到尾段!", _ iTxt(TxtParagraghIndex + 1))) Else '读取并自动改变段落引索 TxtParagraghIndex += 1 '判断并修改文件状态 If TxtParagraghIndex >= TxtParagraghCount - 1 Then iTxtState = TXTClass_Enum_TState.InTail Else iTxtState = TXTClass_Enum_TState.InMiddle End If If TxtParagraghIndex >= TxtParagraghCount Then TxtParagraghIndex = TxtParagraghCount - 1 : Return "已到尾段!" End If Return iTxt(TxtParagraghIndex) End If Catch ex As Exception MsgBox("方法:TXTClass.NextParagragh() 执行出错!", , "错误提示") Return "" End Try End Function Public Function ThisParagragh(Optional ByVal Index As Integer = -1, Optional ByVal WithoutChange As Boolean = True) As String Try '判断是否已打开文件 If iTxtState = TXTClass_Enum_TState.NoTxt Then Return "" Dim TmpLineIndex As Integer = TxtParagraghIndex '临时创建段落引索副本 If TxtParagraghIndex = -1 Then '当段落引索为初始值时自动调整引索为有效值 TmpLineIndex = 0 If Not WithoutChange Then TxtParagraghCount = 0 End If If Index <> -1 Then '判断返回默认行还是指定行,Index=-1 默认行 If Index >= 0 AndAlso Index < TxtParagraghCount Then '检查新段落引索有效性 TmpLineIndex = Index If Not WithoutChange Then '如果【不是】 只读取而不改变段落引索 TxtParagraghIndex = Index '修改段落引索 '判断并修改文本状态 If TxtParagraghIndex > 0 AndAlso TxtParagraghIndex < TxtParagraghCount - 1 Then iTxtState = TXTClass_Enum_TState.InMiddle ElseIf TxtParagraghIndex = 0 Then iTxtState = TXTClass_Enum_TState.InHead ElseIf TxtParagraghIndex = TxtParagraghCount - 1 Then iTxtState = TXTClass_Enum_TState.InTail End If End If Else Return "" End If Else Return iTxt(TmpLineIndex) End If Catch ex As Exception MsgBox("方法:TXTClass.LastParagragh() 执行出错!", , "错误提示") Return "" End Try End Function Public Function LastParagragh(Optional ByVal WithoutChange As Boolean = True) As String Try '判断是否已打开文件 If iTxtState = TXTClass_Enum_TState.NoTxt Then Return "" If Not WithoutChange Then '如果只是读取而不改变段落引索 Return IIf(iTxtState = TXTClass_Enum_TState.NoTxt, "", _ IIf(TxtParagraghIndex - 1 < 0, "已到首段!", iTxt(TxtParagraghIndex - 1))) Else '读取并自动改变段落引索 TxtParagraghIndex -= 1 '判断并修改文件状态 iTxtState = IIf(TxtParagraghIndex <= 0, _ TXTClass_Enum_TState.InHead, _ TXTClass_Enum_TState.InMiddle) If TxtParagraghIndex < 0 Then TxtParagraghIndex = 0 : Return "已到首段!" End If Return iTxt(TxtParagraghIndex) End If Catch ex As Exception MsgBox("方法:TXTClass.LastParagragh() 执行出错!", , "错误提示") Return "" End Try End Function End Class ReadLineClass.vb(类) Public Class ReadLineClass Inherits TXTClass Private iLineCount As Integer Private iLineIndex As Integer Private iLine() As String Private TXTWordIndex As Long Private Enum LState GoDown = 0 GoUp = 1 End Enum Private iLineState As LState Private iLab As iLabel Public Sub Init(ByRef tLab As iLabel) iLab = tLab End Sub Public Function IsEOL(Optional ByVal Index As Integer = -1) As Boolean 'EndOfLine If Index = -1 Then If iLineIndex >= iLineCount - 1 Then Return True Else Return False Else If Index >= iLineCount - 1 Then Return True Else Return False End If End Function Public Function IsHOL() As Boolean 'HeadOfLine '判断是否处于iLine的首元素 If iLineIndex <= 0 Then Return True Else Return False End Function Public Function GetLineCount() As Integer Return iLineCount End Function Public Function GetLineIndex() As Integer Return iLineIndex End Function Public Function SetLineIndex(ByVal Index As Integer) As Boolean Try If Index >= 0 AndAlso Index < iLineCount Then iLineIndex = Index Return True End If Catch ex As Exception MsgBox(ex.ToString, , "错误提示") Return False End Try End Function Public Function GetWordIndex() As Long Return TXTWordIndex End Function Public Function SetWordIndex(ByVal Index As Long) As Boolean If GetTxtState() = TXTClass_Enum_TState.NoTxt Then Return False If Index < 0 OrElse Index >= GetWordCount() Then Return False Try Dim tIndex As Long = TXTWordIndex Dim tParagraghIndex As Integer = GetParagraghIndex(), tLineIndex As Integer = GetLineIndex() Dim bak_ParagraghIndex As Integer = tParagraghIndex, bak_LineIndex As Integer = tLineIndex If tIndex < Index Then '向后跳转 '步骤:计入当前行;计入剩余行;计入N段、再计入M行 '判断成功:是否在当前行范围内;是否在剩余行范围内;先是否在段范围内,再判断在哪行范围内 '失败:恢复之前的ParagraghIndex和LineIndex '第一步:计入当前行,判断是否在当前行范围内 tIndex += ThisLine.Length If tIndex >= Index Then Return True 'Index在当前段-当前行 '第二步:在第一步的基础上,计入剩余行,判断是否在剩余行范围内 While Not IsEOL(tLineIndex) tLineIndex += 1 : tIndex += ThisLine(tLineIndex, True).Length If tIndex >= Index Then If SetLineIndex(tLineIndex) Then Return True 'Index在当前段-第tLineIndex行 Else SetLineIndex(bak_LineIndex) Return False End If End If End While '第三步:在第一、二步基础上,先计入N段判断在哪段范围内,再计入M行判断在哪行范围内 Do tParagraghIndex += 1 : tIndex += ThisParagragh(tParagraghIndex, True).Length Loop Until tIndex > Index '判断在哪段 If Not (SetParagraghIndex(tParagraghIndex) AndAlso _ CutParagragh(ThisParagragh(-1, True), iLine) > 0) Then '段落引索设置失败或新段落的分行失败,恢复原来的信息 SetParagraghIndex(bak_ParagraghIndex) CutParagragh(ThisParagragh(-1, True), iLine) SetLineIndex(bak_LineIndex) Return False End If tLineIndex = 0 : tIndex -= ThisParagragh(tParagraghIndex, True).Length Do Until tIndex + ThisLine(tLineIndex, True).Length > Index tIndex += ThisLine(tLineIndex, True).Length : tLineIndex += 1 Loop If SetLineIndex(tLineIndex) Then Return True Else SetParagraghIndex(bak_ParagraghIndex) CutParagragh(ThisParagragh(-1, True), iLine) SetLineIndex(bak_LineIndex) Return False End If Else '向前跳转 '步骤:计入多余行(向上);计入N段、再计入M行 '判断成功:是否在多余行范围内;先是否在段范围内,再判断在哪行范围内 '失败:恢复之前的ParagraghIndex和LineIndex '第一步:计入多余行(向上),判断是否在多余行范围内 While Not IsHOL() tLineIndex -= 1 : tIndex -= ThisLine(tLineIndex, True).Length If tIndex <= Index Then If SetLineIndex(tLineIndex) Then Return True Else SetLineIndex(bak_LineIndex) Return False End If End If End While '第二步:在第一步基础上,先向上计入N段判断在哪段范围内,再向上计入M行判断在哪行范围内 Do tParagraghIndex -= 1 : tIndex -= ThisParagragh(tParagraghIndex, True).Length Loop Until tIndex <= Index OrElse IsHOF() If Not (SetParagraghIndex(tParagraghIndex) AndAlso _ CutParagragh(ThisParagragh(-1, True), iLine) > 0) Then '段落引索设置失败或新段落的分行失败,恢复原来的信息 SetParagraghIndex(bak_ParagraghIndex) CutParagragh(ThisParagragh(-1, True), iLine) SetLineIndex(bak_LineIndex) Return False End If tLineIndex = iLine.Length - 1 : tIndex += ThisParagragh(tParagraghIndex, True).Length Do Until tIndex - ThisLine(tLineIndex, True).Length <= Index tIndex -= ThisLine(tLineIndex, True).Length : tLineIndex -= 1 Loop If SetLineIndex(tLineIndex) Then Return True Else SetParagraghIndex(bak_ParagraghIndex) CutParagragh(ThisParagragh(-1, True), iLine) SetLineIndex(bak_LineIndex) Return False End If End If Catch ex As Exception MsgBox(ex.ToString, , "错误提示") Return False End Try End Function Public Function GetReadRatio() As Double Dim wCount As Long = GetWordCount() If wCount <= 0 Then Return 0 Return TXTWordIndex / wCount End Function Public Function SetReadRatio(ByVal Ratio As Double) As Boolean If GetTxtState() = TXTClass_Enum_TState.NoTxt Then Return False Dim dWordIndex As Long = CLng(GetWordCount() * Ratio) '定位的wordindex Return SetWordIndex(dWordIndex) End Function Public Function NextLine(Optional ByVal WithoutChange As Boolean = False) As String Try If Not IsEOL() Then '如果还有下一行 If WithoutChange Then Return iLine(iLineIndex + 1) Else TXTWordIndex += iLine(iLineIndex).Length '减去当前行字数 iLineIndex += 1 : iLineState = LState.GoDown Return iLine(iLineIndex) End If Else '无下一行,需要对下一段进行分行 If IsEOF() Then Return "" '如果无下一段,则返回空字符串 Dim tLine() As String : ReDim tLine(0) If WithoutChange Then If CutParagragh(NextParagragh(True), tLine) > 0 Then Return tLine(0) Else MsgBox("段落分行出错!" + vbCrLf + "函数:NextLine(),引索:" + GetParagraghIndex() + 1 + vbCrLf + "该段内容在下个提示框显示。", , "错误提示") MsgBox(NextParagragh(True), , "段落分行出错") Return "段落分行出错!" End If Else Dim tLineCount As Integer = CutParagragh(NextParagragh(False), tLine) If tLineCount > 0 Then iLine = tLine : iLineCount = tLineCount iLineIndex = 0 : iLineState = LState.GoDown Return iLine(iLineIndex) Else MsgBox("段落分行出错!" + vbCrLf + "函数:NextLine(),引索:" + GetParagraghIndex() + vbCrLf + "该段内容在下个提示框显示。", , "错误提示") MsgBox(ThisParagragh(), , "段落分行出错") Return "段落分行出错!" End If End If End If Catch ex As Exception MsgBox(ex.ToString, , "错误提示") Return "" End Try End Function Public Function ThisLine(Optional ByVal Index As Integer = -1, Optional ByVal WithoutChange As Boolean = False) As String Try If Index >= 0 Then Return iLine(Index) If Not WithoutChange Then iLineIndex = Index Else Return iLine(iLineIndex) End If Catch ex As Exception MsgBox(ex.ToString, , "错误提示") Return "" End Try End Function Public Function LastLine(Optional ByVal WithoutChange As Boolean = False) As String Try If Not IsHOL() Then '如果还有上一行 If WithoutChange Then Return iLine(iLineIndex - 1) Else iLineIndex -= 1 : iLineState = LState.GoUp TXTWordIndex -= iLine(iLineIndex).Length '减去上一行的字数 Return iLine(iLineIndex) End If Else '无下一行,需要对上一段进行分行 If IsHOF() Then Return "" '如果没有上一段,则返回空字段 Dim tLine() As String, tLineCount As Integer : ReDim tLine(0) If WithoutChange Then tLineCount = CutParagragh(LastParagragh(True), tLine) If tLineCount > 0 Then Return tLine(tLineCount - 1) Else MsgBox("段落分行出错!" + vbCrLf + "函数:LastLine(),引索:" + GetParagraghIndex() - 1 + vbCrLf + "该段内容在下个提示框显示。", , "错误提示") MsgBox(LastParagragh(True), , "段落分行出错") Return "段落分行出错!" End If Else tLineCount = CutParagragh(LastParagragh(False), tLine) If tLineCount > 0 Then iLine = tLine : iLineCount = tLineCount iLineIndex = iLineCount - 1 : iLineState = LState.GoUp Return iLine(iLineIndex) Else MsgBox("段落分行出错!" + vbCrLf + "函数:LastLine(),引索:" + GetParagraghIndex() + vbCrLf + "该段内容在下个提示框显示。", , "错误提示") MsgBox(ThisParagragh(), , "段落分行出错") Return "段落分行出错!" End If End If End If Catch ex As Exception MsgBox(ex.ToString, , "错误提示") Return "" End Try End Function Private Function CutParagragh(ByVal tText As String, ByRef tmpLine() As String) As Integer '根据tLab的信息对tText进行分行,结果以地址的形式储存到tmpLine中,返回tmpLineCount Try ReDim tmpLine(0) If tText.Length = 0 Then Return 1 Dim tLab As iLabel = iLab Dim tFont As Font = tLab.Font Dim g As Graphics = tLab.CreateGraphics Dim tmpLineCount As Integer = 0 Dim iLabWidth As Integer = tLab.Width '经测试得出的比例 Dim EachWordWidth As Integer = TextRenderer.MeasureText("测", tFont).Width Dim EachLineWordCount As Integer = iLabWidth / EachWordWidth EachLineWordCount += CInt(EachLineWordCount * 0.5) Dim iStr As String = tText Dim tStrWidth As Integer = 0, tStr As String = "", tStrCount As Integer = 0 Dim iStrWidth As Integer = TextRenderer.MeasureText(g, iStr, tFont).Width While iStrWidth > iLabWidth '如果初始(剩余)字串的长度比限定的长则进行(继续)分割 '判断字串的个数是否比默认的小,若比默认的小则以字串的个数作为默认值。该值用于初次截取字串 tStrCount = iStr.Length tStrCount = IIf(EachLineWordCount >= tStrCount, tStrCount - 1, EachLineWordCount) '-1的必要性:由于已知tStrCount个字的长度比限定的长,所以按照这个值截取出来的长度肯定不符合,因此尝试截取tStrCount-1个字 '判断初次截取的长度是否符合要求 tStr = Mid(iStr, 1, tStrCount) tStrWidth = TextRenderer.MeasureText(tStr, tFont).Width If tStrWidth > iLabWidth Then '初次截取的字串长度较长,尝试减少字符个数 Do '根据超出的长度判断减少多少个字符 tStrCount -= CIntA(tStrWidth - iLabWidth, EachWordWidth) tStr = Mid(iStr, 1, tStrCount) tStrWidth = TextRenderer.MeasureText(tStr, tFont).Width Loop While tStrWidth > iLabWidth ReDim Preserve tmpLine(tmpLineCount) tmpLine(tmpLineCount) = tStr tmpLineCount += 1 Else '初次截取的字串长度较短,尝试增加字符个数 Do '根据剩余的长度判断增加多少个字符 tStrCount += CIntA(iLabWidth - tStrWidth, EachWordWidth) 'tStrCount += 1 '防止增加太多导致超出范围 tStr = Mid(iStr, 1, tStrCount) tStrWidth = TextRenderer.MeasureText(tStr, tFont).Width Loop While tStrWidth < iLabWidth ReDim Preserve tmpLine(tmpLineCount) tStrCount -= 1 : tmpLine(tmpLineCount) = Mid(tStr, 1, tStrCount) tmpLineCount += 1 End If iStr = Mid(iStr, tStrCount + 1) iStrWidth = TextRenderer.MeasureText(iStr, tFont).Width End While '如果(剩余)字符串的长度小于限定的值,则直接储存。 If iStr.Length > 0 Then ReDim Preserve tmpLine(tmpLineCount) tmpLine(tmpLineCount) = iStr tmpLineCount += 1 End If Return tmpLineCount Catch ex As Exception MsgBox(ex.ToString, , "错误提示") Return 0 End Try End Function Private Function CIntA(ByVal V1 As Integer, ByVal V2 As Integer) As Integer '作用:返回不小于V1除以V2的商的值 Dim v As Integer = V1 \ V2 Return IIf(V1 Mod V2 = 0, v, v + 1) End Function End Class
http://www.itnose.net/detail/6017258.html 2014-04-08 21:58   [VB.Net]

请问RSS阅读器如何保存网页内容

请问各位,我使用的RSSOwl要如何才能保存网页的内容呢?比如我看到好的新闻种,打开连接后,却不知怎么保存内容,是不是只能保存那些摘要页呢?? 回复讨论(解决方案) 如果阅读器未提供保存功能。你只有换阅读器或使用IE打开再保存了。 我刚用RSSOwl,不太清楚是没有还是不会,那位用过
http://www.itnose.net/detail/955587.html 2014-03-02 02:13   [XML/XSL]

求一个开源的C++小说阅读器项目

http://www.itnose.net/detail/945590.html 2014-03-01 23:42   [程序员]

如何用asp实现博客rss阅读器功能

平时有空的时候,我都会去看别人写的博客。 有时候去了没有更新文章,白跑了。 现在我想用rss功能做个程序。用asp来实现。只要将些博客的地址添加到我的数据库里。[b]以后这些博客有更新,就自动将这个信息保存到我的数据库里,并显示在我的订阅页面上。这样我以后就直接看我的页面就行了,不用亲自跑过去看。[/b] 请问应该怎么实现呢。请提供思路。 特别说明:对方的博客更新后,我这个页面会自动保存这条数据到我的数据库。然后显示在网页上点击链接就进入对方的博客文章页面。 (不是采集) 回复讨论(解决方案) 那就得别人的网站要有rss订阅  你才可以看的... rss订阅  跟asp生成XML  差不多! 现在独立的博客系统都有RSS订阅功能了。 只是我想将别人更新后,自动会将这个新文章的标题,时间,网址保存到我的数据库。 那就得别人的网站要有rss订阅 你才可以看的... rss订阅 跟asp生成XML 差不多! rss采集 搜索一下。 谢谢解答。现在问题还没解决。没思路。
http://www.itnose.net/detail/940479.html 2014-03-01 22:32   [ASP]

Delphi设计一个PDF阅读器,遇到一个看似很容易却解决不了问题

    使用Delphi做一个PDF阅读器,用了Adobe Reader的OCX,直接搞个窗体,上面放上插入进来的Adobe控件,通过调用它提供的函数来阅读pdf文件,其实就是我自己在reader上搭了一个架子。但遇到的问题是,我如果改变窗体的大小
http://www.itnose.net/detail/899183.html 2014-03-01 17:23   [数据库]

阅读器关闭时尝试调用read无效

;}             }             return list; 回复讨论(解决方案) 阅读器关闭时尝试调用 Read 无效。  说明: 执行当前 Web 请求期间,出现未经处理的异常。请检查堆栈跟踪信息,以了解
http://www.itnose.net/detail/897604.html 2014-03-01 17:12   [C#语言]

java读取身份证阅读器信息

项目中需要将 华视CVR-100身份证阅读器 的功能 嵌入到java工程中去,有朋友做过这方面的吗?有点话请指点一下,十分感谢!! 在硬件板块也发了一贴 http://topic.csdn.net/u/20101230/18
http://www.itnose.net/detail/893718.html 2014-03-01 16:29   [J2EE]

iPad上RSS阅读器的开发技术调研

本人正在做iPad上RSS阅读器的调研,要调研相关软件的开发技术,可是百度谷歌搜了很久都没有找到,请教下高手应该怎么去查找资料啊,非常感谢!救急啊 回复讨论(解决方案) http://theappleblog.com/2008/08/04
http://www.itnose.net/detail/876814.html 2014-03-01 02:11   [iphone]

什么是*.caj文件,它的阅读器应该到哪里去下载?

什么是*.caj文件,它的阅读器应该到哪里去下载? 回复讨论(解决方案) 这个文档我是从一个网站上找到的,上面说是来自中国期刊网 http://www.chinajournal.net.cn/cajviewer.zip下浏览。 http
http://www.itnose.net/detail/863683.html 2014-02-22 00:59   [资源]

豆丁网 那种文章阅读器怎么弄的啊?

现在有个项目要模仿豆丁网阅读器那种效果 我现在需要读取文件后生成那种flash效果显示在页面上 有谁做过吗? 指导一下!!! 回复讨论(解决方案) 找个私人渠道,接触一下豆丁的程序员,呵呵 找个私人渠道,接触一下豆丁的程序员,呵呵 找不到呢 FLEX可以做到的 flashpaper flashpaper  无法动态解析word文档的吧  ? 如果你公司做的项目可以在互联网上使用,我推荐你看一下google doc view! 是在互联网上使用啊!
http://www.itnose.net/detail/859152.html 2014-02-21 22:32   [J2EE]

首推 国内一款不错的RSS阅读器

) 赠送CSDN vc/MFC社区的opml文件内容 您只要在桌面新建一个文件文档,起名这CSDN.xml 然后打开文件,把以下内容copy进去,保存后.用此阅读器导入就可以.(频道窗口内右建菜单) <?xml version="1.0" 
http://www.itnose.net/detail/810772.html 2014-02-21 16:44   [程序员]

有哪位知道.pdg扩展名的文件用什么阅读器打开?

有哪位知道.pdg扩展名的文件用什么阅读器打开? 回复讨论(解决方案) SSReader超星图书浏览 v3.54 http://x198.3322.net/gj.htm SSReader超星图书浏览 v3.54 阅读超星图书格式:001或pdg文件的
http://www.itnose.net/detail/787400.html 2014-02-20 23:49   [资源]

电子图书制作,阅读器设计

最近被安排研究数字图书馆,其中要设计专门的电子图书格式和阅读器,google了一番,找不到有用的东东,大概的想法是把word,pdf转为假定的专门格式的文档,然后用阅读器打开,类似于方正、超星图书格式和阅读器,困惑了很久,希望高手能指点一二,谢谢! 回复讨论(解决方案) 这篇文章讲了一些思路 http://www.qqread.com/encrypt/x900765062_2.html 关注并期待中。。。。。。
http://www.itnose.net/detail/780455.html 2014-02-20 22:41   [图形处理/算法]

vb.net 调用pdf阅读器进行打印

在vb.net中如何调用pdf阅读器进行打印, 并且在打印的时候设定指定的打印机和纸槽信息, 最好给出具体代码 回复讨论(解决方案) 除非自己可以打开 PDF 文件操纵打印,否则设置打印机的信息可能比较难以实现。 如果单纯的打印 
http://www.itnose.net/detail/725495.html 2014-02-20 00:45   [VB.Net]

<上一页  1  2  3  4  5  6  7  8  9 下一页>