2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 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.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)