FC2ブログ


何か創りたい。
http://toshirr.blog13.fc2.com/
* Toshi's Recess Room - Toshi Creates. - 即席プログラム
<< 2020/01 - 2020/02 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 - 2020/03 >>

即席プログラム

MP3 のファイル名の変更に即席コードを書き上げました。原文まま。
しかも例によってタブ無し(核爆)

Dim hNames As HWND

'hNames=CreateFile("Names.txt",GENERIC_READ,NULL,ByVal NULL,OPEN_EXISTING,NULL,NULL)

Dim i As Long
Dim Buf As String
Buf=ZeroString(256)
Dim Name As String
Name=ZeroString(256)
Open "Names.txt" For Input As 1

For i=1 To 14 Step 1
Input #1,Buf
Buf=Buf+".mp3"
If i<10 Then
Name="0"+Str$(i)+" トラック "+Str$(i)+".mp3"
Else
Name=Str$(i)+" トラック "+Str$(i)+".mp3"
End If
MoveFile(StrPtr(Name),StrPtr(Buf))
Next

'CloseHandle(hNames)
Close 1


何やってるのか分からないでしょうが(爆)、ActiveBasic での即席プログラムの初作品です。
記念に保存しとこう。(笑
スポンサーサイト



[ No. 150 ]
[ 日時 : 2005/12/24 (Sat.) 17:05:18 ]
[ カテゴリ : プログラミング ]
[ コメント : 0 ]
[ トラック バック : 0 ]


コメント


コメントの投稿









トラック バック


トラック バック URI

http://toshirr.blog13.fc2.com/tb.php/150-76b29559


前後の記事

これ以降に書かれた記事 : アホなことをした
これ以前に書かれた記事 : 新 Web サイトの概要

プロフィール

Toshi

  • Author:Toshi
  • 何かを創りたい Toshi の記録


ブログ内の検索


最近の記事


最近のコメント


最近のトラック バック


カレンダー

01 | 2020/02 | 03
- - - - - - 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29


月別の記事


カテゴリ別の記事


RSS フィード


<< 2020/01 - 2020/02 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 - 2020/03 >>
* Toshi's Recess Room - Toshi Creates. - 即席プログラム
http://toshirr.blog13.fc2.com/
(C) 2005 - 2009 Toshi, All Rights Reserved.