tmplinshi

回复 5# 523066680


    多谢。你这个方法好像是从文件内容中读取的文件名。如果指向的不是种子文件，而是其他的文件类型比如 exe 就无效了。

523066680

use Encode;
use LWP::Simple;

my $all = get("https://www.nyaa.se/?page=download&tid=613616");
$all =~ /name\d+:(.*?rar)/i;
print encode('gbk', decode('utf8', $1));
复制代码

海贼王765.rar

补充修改一下：

use Encode;
use LWP::Simple;

my $h = head("https://www.nyaa.se/?page=download&tid=613616");
print encode('gbk', decode('utf8',  $h->{'_headers'}->{'content-disposition'} ))
复制代码

inline; filename="海贼王765.rar.torrent"

tmplinshi

谢谢二位！

显示的结果是 "海贼�?65.rar.torrent"，正确的应该是 "海贼王765.rar.torrent"。
不知道是不是因为 objWinHttp.GetResponseHeader("Content-Disposition") 返回的字符本身就丢失了数据。

aa77dd@163.com

Const adTypeBinary = 1
Const adTypeText = 2

' accept a string and convert it to Bytes array in the selected Charset
Function StringToBytes(Str,Charset)
  ' Dim Stream
  Set Stream = CreateObject("ADODB.Stream")
  Stream.Type = adTypeText
  Stream.Charset = Charset
  Stream.Open
  Stream.WriteText Str
  Stream.Flush
  Stream.Position = 0
  ' rewind stream and read Bytes
  Stream.Type = adTypeBinary
  StringToBytes= Stream.Read
  Stream.Close
  Set Stream = Nothing
End Function

' accept Bytes array and convert it to a string using the selected charset
Function BytesToString(Bytes, Charset)
  ' Dim Stream
  Set Stream = CreateObject("ADODB.Stream")
  Stream.Charset = Charset
  Stream.Type = adTypeBinary
  Stream.Open
  Stream.Write Bytes
  Stream.Flush
  Stream.Position = 0
  ' rewind stream and read text
  Stream.Type = adTypeText
  BytesToString= Stream.ReadText
  Stream.Close
  Set Stream = Nothing
End Function

' This will alter charset of a string from 1-byte charset(as windows-1252)
' to another 1-byte charset(as windows-1251)
Function AlterCharset(Str, FromCharset, ToCharset)
  Dim Bytes
  Bytes = StringToBytes(Str, FromCharset)

	' HEXS=""
	' for i = 1 to LenB(Bytes)
		' HEXS = HEXS & hex(ascb(MidB (Bytes, i, 1))) & ","
	' next
	' MsgBox HEXS

  AlterCharset = BytesToString(Bytes, ToCharset)
End Function


Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "HEAD", "https://www.nyaa.se/?page=download&tid=613616"
objWinHttp.Send
MsgBox objWinHttp.GetResponseHeader("Content-Disposition")
' MsgBox LenB ( objWinHttp.GetResponseHeader("Content-Disposition") )
MsgBox AlterCharset( objWinHttp.GetResponseHeader("Content-Disposition"), "GB2312", "utf-8")
复制代码

pcl_test

可以使用adodb.stream转码