今天窝牛号就给我们广大朋友来聊聊如何复制网页上不能复制的文字,以下观点希望能帮助到您。

答复制粘贴出来是以前的内容，是设置错误造成的，解决方法如下：

1、首先在桌面上打开“运行”程序。在“运行”编辑框中输入“Clipbrd”，确定。

2、剪贴板就打开了，显示出剪贴板的主界面，因为并没有复制，滚漏神所以里面一片空白，什么也没有。

3、这里打开记事本，写上五行数字。

4、写好后，全部选择所写的数字，右键“复制”。

5、这时看到搜派剪贴大亏板上有内容了，只要一点复制，剪贴板窗口马上显示出来所写的数字了。

答无法完整复制的原因: 多次读取文件,却只有一次写入到另外一个文件.

while(input.read()!=-1){//这里input.read()已经读取了,却没有保存

out.print((char)input.read());//这里input.read()读取了并且写入了文件

System.out.println((char)input.read());//这里的input.read()读取了,并没有保存到文件,只是输出了

}

//每次循环读取了三次,却只写入了一次

修改后的代码版本一:

inttemp;//临时变量,用于保存每次读取的数据

while差顷((temp=input.read())!=-1){

out.print((char)temp);

System.out.print((char)temp);//println表示换行,一个字符换一次,建议直接使用print不换行比较美观

}

input.close();//输入流用完也要关闭

比较正规的修改虚手陆版本二:

importjava.io.*;

publicclassPrintWrite{

publicstaticvoidmain(String[]args){

try{

BufferedReaderinput=newBufferedReader(newFileReader("123.txt"));

//BufferedReader最常用的是方法readLine()用于按行读取字符

FileWriterfw=newFileWriter("QQ.txt");

PrintWriterout=newPrintWriter(newBufferedWriter(fw));

out.print("A");

Stringtemp;//临时保存每一行文字

while((temp=input.readLine())!=null){//readLine方法用于读取一行如果为null,证明已经读完了

out.print(temp+"n");//n表示换行

System.out.println(temp);

}

input.close();//输入流用完也要关闭

out.close();

}catch(IOException薯指ioe){

System.out.println(ioe.toString());

}

}

}

答可以找Drag and Drop Component Suite 控件实轿者现。用Delphi的好处就是控件多拿侍啊。

另找一个大富翁上的回复给你。

来自: 浪刀, 时间: 2000-04-03 22:03:14, ID: 211705

摘自一本杂志:

呵呵，这个问题我刚刚遇到过（我写的FreeIP就支持拖放URL)。就是让自己的程序

可以接受OLE拖放。这需要申明一个COM对象，并支持IDropTarget接消帆吵口。

下面DragDrop.pas不是我写的:

unit DragDrop;

interface

uses

Windows, ActiveX, ComObj,Dialogs,Sysutils;

type

TDropEvent = procedure(Sender:TObject;Msg:Pchar)of object;

TTMyDrop = class(TComObject, IDropTarget)

private

FOnDroped: TDropEvent;

procedure SetOnDroped(const Value: TDropEvent);

protected

{Declare IDropTarget methods here}

function DragEnter(const dataObj: IDataObject; grfKeyState: Longint;

pt: TPoint; var dwEffect: Longint): HResult; stdcall;

function DragOver(grfKeyState: Longint; pt: TPoint;

var dwEffect: Longint): HResult; stdcall;

function DragLeave: HResult; stdcall;

function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;

var dwEffect: Longint): HResult; stdcall;

public

property OnDroped:TDropEvent read FOnDroped write SetOnDroped;

end;

const

Class_TMyDrop: TGUID = '{846C94F8-7649-11D2-9836-0000E82EA1B1}';

implementation

uses ComServ,unit1;

{ TTMyDrop }

function TTMyDrop.DragEnter(const dataObj: IDataObject;

grfKeyState: Integer; pt: TPoint; var dwEffect: Integer): HResult;

var

enumFormatEtc: IEnumFormatEtc;

f:TFORMATETC;

count:Integer;

Found:boolean;

begin

dataObj.EnumFormatEtc(DATADIR_GET,enumFormatEtc);

Found:=false;

while (enumFormatEtc.Next(1,f,@count)=S_OK)and (count>0) do

begin

if (f.cfFormat=CF_TEXT) then

begin

Found:=true;

Break;

end;

end;

if Found then

Result:=S_OK

else

begin

result:=E_INVALIDARG;

dwEffect:=DROPEFFECT_NONE;

end;

end;

function TTMyDrop.DragLeave: HResult;

begin

result := S_OK;

end;

function TTMyDrop.DragOver(grfKeyState: Integer; pt: TPoint;

var dwEffect: Integer): HResult;

begin

result := S_OK;

end;

function TTMyDrop.Drop(const dataObj: IDataObject; grfKeyState: Integer;

pt: TPoint; var dwEffect: Integer): HResult;

var

enumFormatEtc: IEnumFormatEtc;

f:TFORMATETC;

count:Integer;

Found:boolean;

medium: TStgMedium;

begin

dataObj.EnumFormatEtc(DATADIR_GET,enumFormatEtc);

Found:=false;

while (enumFormatEtc.Next(1,f,@count)=S_OK)and (count>0) do

begin

if (f.cfFormat=CF_TEXT) then

begin

Found:=true;

Break;

end;

end;

if not Found then

begin

result:=E_INVALIDARG;

dwEffect:=DROPEFFECT_NONE;

Exit;

end;

dataObj.GetData(f,medium);

if medium.tymed =1 then

begin

if Assigned(fOnDroped) then

begin

fOnDroped(Self,PChar(GlobalLock(medium.hglobal)));

GlobalUnLock(medium.hglobal);

end;

result := S_OK;

end;

end;

procedure TTMyDrop.SetOnDroped(const Value: TDropEvent);

begin

FOnDroped := Value;

end;

initialization

TComObjectFactory.Create(ComServer, TTMyDrop, Class_TMyDrop,

'TMyDrop', '', ciMultiInstance{, tmApartment});

end.

在自己的程序中，在FormCreate的时候,加入：

OleInitialize(NIL);

dd := TTMyDrop.Create;

dd.OnDroped:=DoDroped;

res1 := CoLockObjectExternal(dd, true, false);

res := RegisterDragDrop(Handle, IDropTarget(dd));

其中，DoDroped在拖放发生时被调用：

procedure TForm1.DoDroped(Sender: TObject; Msg: Pchar);

begin

.//此处最好不要有太耗时的工作，因为被拖出的程序（比如说是浏览器）

//要等待此事件结束

end;

在FormDestroy时：

RevokeDragDrop(Handle);

OleUninitialize;

一定要用COM对象吗？

用OLE2 接口就行了吧!

TTMyDrop = class(TInterfacedObject, IDropTarget)

这样用的资源更少，也不用包含与com有关的unit了，只用

包含activex就行了。

也不用产生TComObjectFactory。

希望对你有帮助!

答1、编写爬虫思路：

确定下载目标，找到网页，找到网页中需要的内容。对数据进行处理。保存数据。

2、知识点说明：

1）确定网络中需要的信息，打开网页后使用F12打开开发者模式。

在Network中可以看到很多信息，我们在页面上看到的文字信息都保存在一个html文件中。点击文件后可以看到response，文字信息都包含在response中。

对于需要输入的信息，可以使用ctrl+f，进行搜索。查看信息前后包含哪些特定字段段启。

对于超链接的提取，可以使用最左边的箭头点击超链接，这时Elements会打开升亏有该条超链接的信息，从中判断需要吵燃神提取的信息。从下载小说来看，在目录页提取出小说的链接和章节名。

2）注意编码格式

输入字符集一定要设置成utf-8。页面大多为GBK字符集。不设置会乱码。

对于如何复制网页上不能复制的文字，看完本文，小编觉得你已经对它有了更进一步的认识，也相信你能很好的处理它。如果你还有其他问题未解决，可以看看窝牛号的其他内容。

本站所发布的文字与图片素材为非商业目的改编或整理，版权归原作者所有，如侵权或涉及违法，请联系我们删除