5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Samurize Part22

674 :AJ+@402:05/01/06 15:11:51 ID:v5+Hrnbc
原因判明したので一応報告

ZARDは題目と歌詞の始まりが一緒だった為、エラーが発生してました。
従って
LyricsUrl = RegSubMatches(strList, "(\S*)\\\\"&SearchStr(TITLE)&"\\\\", 0)

LyricsUrl = UCase(Replace(LyricsUrl, vbCrLf ,""))
の間に以下の三行を追記してください。
If Len(LyricsUrl)>10 Then
LyricsUrl = RegSubMatches(LyricsUrl, "(\S*)\\\\"&SearchStr(TITLE)&"\\\\", 0)
End If

ループ&ループは当方でも取得できて無いけどよくわからんから放置。


224 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)