テスト (80ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

71: デフォルトの名無しさん [sage] 2024/04/14(日)11:26 ID:A6nc8mUa(1/3)
「@if …」から「//end」の範囲を CompileUpdateNewPostFtd.bat として保存

@if (0)==(0) echo off
set jsc=C:\Windows\Microsoft.NET\Framework64\v4.0.30319\jsc.exe
"%jsc%" /nologo /debug+ /fast- /t:winexe /out:"%~dp0UpdateNewPostFtd.exe" "%~f0"
exit /b %ERRORLEVEL%
@end
import Microsoft.Win32;
import System;
import System.IO;
var arguments: String[] = Environment.GetCommandLineArgs();
if (arguments.Length == 1)
    Environment.Exit(0);
const live5chRegistoryKey: String
    = "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\Live2ch\\";
var live5chPath: String = Registry.GetValue(live5chRegistoryKey + "Path",
    "Path", Environment.CurrentDirectory + "/live2ch.exe");
var live5chDirectory: String = Path.GetDirectoryName(live5chPath);
var ftdPostFile = live5chDirectory + "\\newpost.ftd";
var maxPost: int = Int32.Parse(Registry.GetValue(
    live5chRegistoryKey + "Setting",
    "FtdMaxPost", Environment.CurrentDirectory + "\\live2ch.exe"));
/*

---

72: デフォルトの名無しさん [sage] 2024/04/14(日)11:27 ID:A6nc8mUa(2/3)
*/
var arg: String = arguments[1];
var url: String;
if (/^https?:(\/\/.+\/)/.test(arg))
    url = "http:" + RegExp.$1;
else
    Environment.Exit(1);
var postUrl: Array = [url];
var sr : StreamReader = new StreamReader(ftdPostFile);
while (! sr.EndOfStream) {
    var u: String = sr.ReadLine();
    if (u != url)
        postUrl.push(u);
    if (postUrl.Length == maxPost)
        break;
}
sr.Close();
var sw : StreamWriter = new StreamWriter(ftdPostFile);
for (var i = 0; i < postUrl.length; i++)
    sw.WriteLine(postUrl[i]);
sw.Close();
//end

---

73: デフォルトの名無しさん [sage] 2024/04/14(日)15:40 ID:A6nc8mUa(3/3)
訂正: 下から9行目 Length を length に修正して下さい

if (postUrl.Length == maxPost)
↓
if (postUrl.length == maxPost)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.300s*