何か創りたい。
http://toshirr.blog13.fc2.com/
* Toshi's Recess Room - Toshi Creates. - 即席プログラム
<< 2017/09 - 2017/10 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 30 31 - 2017/11 >>

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

[ No. ]
[ 日時 : --/--/-- (--.) --:--:-- ]
[ カテゴリ : スポンサー広告 ]


即席プログラム

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 の記録


ブログ内の検索


最近の記事


最近のコメント


最近のトラック バック


カレンダー

09 | 2017/10 | 11
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 30 31 - - - -


月別の記事


カテゴリ別の記事


RSS フィード


<< 2017/09 - 2017/10 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 30 31 - 2017/11 >>
* Toshi's Recess Room - Toshi Creates. - 即席プログラム
http://toshirr.blog13.fc2.com/
(C) 2005 - 2009 Toshi, All Rights Reserved.

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。