VBプログラマ質問スレ（6.0以前） Part54

VBプログラマ質問スレ（6.0以前） Part54 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

50:デフォルトの名無しさん
 08/03/18 20:14:26 
>>49 
>>46 は、FileSystemObject ぐらい使えとでも言い鯛のでは？

51:デフォルトの名無しさん
 08/03/18 20:58:40 
FileSystemObjectでUNICODEを保存するソース 
↓

52:今日も雲弧 ◆bKaGbR8Ka. 
 08/03/18 22:59:41 
VBSで質問があります。よろしくお願いします。（ﾍﾟｺ 
 
IF文の部分でobjDic11とobjDic12のItemを書き換えました。 
IF文の部分では書き換わっているのに、ループを抜けた後に 
再度objDic11を参照すると書き換え前の状態なのです。 
 
どこが悪いのでしょうか？何故こうなるのでしょうか？ 
お教え下さい。 
 
以下にコードを4分割して貼ります。

53:今日も雲弧 ◆bKaGbR8Ka. 
 08/03/18 23:01:02 
Sub RankMark 
'On Error Resume Next 
Const UpTo_Soutou = 2500 
Const UpTo_Gensui = 2000 
Const UpTo_Taisyou = 1750 
Const UpTo_tyuujyou = 1500 
Const UpTo_Syousyou = 1250 
Const UpTo_Jyunsyou = 1000 
Const UpTo_Taisa = 950 
Const UpTo_tyuusa = 800 
Const UpTo_Syousa = 650 
Const UpTo_Taii = 500 
Const UpTo_Tyuui = 400 
Const UpTo_Syoui = 300 
Const UpTo_Soutyou = 200 
Const UpTo_Gunsou = 150 
Const UpTo_Gotyou = 100 
 
'まずRANKとMARKのobjDicStarsを作る 
 
Set objDicStars = CreateObject("Scripting.Dictionary") 
Set objFS3 = WScript.CreateObject("Scripting.FileSystemObject") 
Set objFile3 = objFS3.GetFile("星.txt") 
Set objTS3 = objFS3.OpenTextFile("星.txt")

次ページ