VB2008EEを使用してスライド用のHTMLファイルを作成するソフトを
つくっています。
　下記についてお教えください。

・画像を下記のようなFor Next でループさせようとしたが結果は
  全て　img[0]　ファイルも 0 番目ばかりとなった。　

  str1 = "img[$LOOP$] = ""slideshow/$FILENAME$"";"　　　　
  For i = 0 To snjpgF - 1
    str1 = Replace(str1, "$LOOP$", i)
    str1 = Replace(str1, "$FILENAME$", System.IO.Path.GetFileName(showfiles(i)))

    PrintLine(fp, str1)
  Next

  ・期待していたのは例えば下記のようなものであったが、全てが
　　img[0] = "slideshow/08250001.JPG";になってしまった。

      img[0] = "slideshow/08250001.JPG";

    img[1] = "slideshow/IMG_0897 (1)_12.JPG";

    img[2] = "slideshow/IMG_0898 (1)_13.JPG";

    img[3] = "slideshow/IMG_0905 (1)_19.JPG";

　どこが悪いのかお教えください。

>     str1 = Replace(str1, "$LOOP$", i)
>     str1 = Replace(str1, "$FILENAME$", System.IO.Path.GetFileName(showfiles(i)))

ステップ実行すればすぐにわかることだが、ループを1回まわしたら
"$LOOP$"も"$FILENAME$"も無くなっている。

> >     str1 = Replace(str1, "$LOOP$", i)
> >     str1 = Replace(str1, "$FILENAME$", System.IO.Path.GetFileName(showfiles(i)))
>
> ステップ実行すればすぐにわかることだが、ループを1回まわしたら
> "$LOOP$"も"$FILENAME$"も無くなっている。

ダンボ様　

　出来ました。！！！
　いつもお世話になります。
　下記のようにFor Nextのなかに入れることで出来るようになりました。
　こういうのは毎回セットしないといけないんですね。勉強になりました。
　　　
  For i = 0 To snjpgF - 1
  　str1 = "img[$LOOP$] = ""slideshow/$FILENAME$"";"
    str1 = Replace(str1, "$LOOP$", i)
    str1 = Replace(str1, "$FILENAME$", System.IO.Path.GetFileName(showfiles(i)))

    PrintLine(fp, str1)
  Next

　本当に有難うございました。

　str1 = "img[$LOOP$] = ""slideshow/$FILENAME$"";"
   For i = 0 To snjpgF - 1
     str2 = Replace(str1, "$LOOP$", i)
     str2 = Replace(str2, "$FILENAME$", System.IO.Path.GetFileName(showfiles(i)))
     PrintLine(fp, str2)
   Next
でもいいでしょう。

>  　str1 = "img[$LOOP$] = ""slideshow/$FILENAME$"";"
>    For i = 0 To snjpgF - 1
>      str2 = Replace(str1, "$LOOP$", i)
>      str2 = Replace(str2, "$FILENAME$", System.IO.Path.GetFileName(showfiles(i)))
>      PrintLine(fp, str2)
>    Next
> でもいいでしょう。

  ああ　なるほど　いろいろあるものですね。
　勉強になりました。
　有難うございます。