Hatena Blog Tags
はてなブログ トップ
Line Input
このタグでブログを書く
言葉の解説
ネットで話題
関連ブログ

Line Input

このタグの解説についてこの解説文は、すでに終了したサービス「はてなキーワード」内で有志のユーザーが作成・編集した内容に基づいています。その正確性や網羅性をはてなが保証するものではありません。問題のある記述を発見した場合には、お問い合わせフォームよりご連絡ください。
自分方位研究所•3年前

(Excel VBA) 一行ずつテキストファイルを読み込む

テキストファイルを改行毎に分割して、Excelシートのセルへ1行ずつ出力していくマクロを作成しました。ファイル名を取得する処理と、出力用シートを用意する処理、本番処理を分けています。 Function ファイルパスを取得 は、2022/2/13の記事で作成したものと基本的には同じですが、選択できるファイルの種類を、テキストファイル以外に、CSV、または、全てのファイル も選択できるようにしてみました。 Function 出力開始セルを指定 では、出力先のシートを新たに挿入しています。挿入されるExcelブックは、直近まで使用していたブックです。一番右側に新しくシートが挿入されます。 Sub 一…

#Line Input

関連ブログ

シンギュラリティ実験ノート•1ヶ月前

Llama3.1-8Bで動く将棋AIを作ってみた

LLMで動くUSIプロトコルの将棋エンジン（将棋AI）を作ってみた。作成の基本方針は先日の記事の通りである。使用したモデルはLlama3.1-8Bでollamaを介して動かしている。 RAG機能と言っていいのか分からないが、テキストファイルに「SFEN形式の説明」と「序盤局面の定跡ファイル」（水匠５に添付されていたファイルから一部を抜粋）を用意してLLMに渡す機能を追加してみた。 RAGの簡易的な実装 RAGとはRetrieval-Augmented Generatioの略らしい。日本語で「検索拡張生成」という。仕組みについては私は全く分かっていない。OpenAIのAPIに実装する方法があるの…

スイカ大好き•1ヶ月前

ファイル読み込みVBA～csvファイルを読み込む

プロンプト by わたし 以下の要件をＶＢＡでコーディングしてください ・マクロと同じパス内にあるファイルで拡張子がcsvのとき、Excelのシートに読み込む。 ・シート名はファイル名から拡張子を除いたものにする。 ・拡張子を除いてもシート名の文字数の上限に達してしまう場合は、20文字までにする。 ・各シートのA1セルにファイル名、A2セルを起点にcsvファイルを読み込む ・読み込み方は、カンマ区切りでセルを分け、全列を文字列として読み込む generate by chatGPT Sub ImportCSVFiles() Dim fso As Object Dim folderPath As …

スイカ大好き•1ヶ月前

ファイル読み込みVBA～tsvファイルを読み込む

プロンプト by わたし 以下の要件をVBAでコーディングしてください [前提]マクロファイルがあるフォルダ内にサブフォルダ「ひな形」があり、その中にひな形.xlsxが入っている [要件]・マクロファイルがあるフォルダ内にtsvファイルがあるとき、ひな形.xlsxから、拡張子を除いたファイル名と一致するシート名のシートを探し、マクロファイルにシートごとコピーする・マクロファイルにコピーされたシートに、A4セルを起点にtsvファイルを読み込む。・tsvファイルは、タブ区切りを1セルずつに分けて、全列を文字列として読み込む generate by chatGPT Sub ImportTSVData…

ABEJA Tech Blog•1ヶ月前

【手順付き】初心に立ち返ってGPT-2を学習してみる

はじめに ABEJAでデータサイエンティストをしている真鍋です。 アドベントカレンダーぶりの登場になります。 今回も生成AI、特にLLM (大規模言語モデル) 系のネタです。 LLMが登場して久しく、業務でLLMを使うのが当然の方も多くなっているのではないかと思います。裏では、私のようなデータサイエンティストやエンジニアが、APIを通じてGPT等の言語モデルを利用する場合も一定あるのではないでしょうか。 一方で、ただAPIを叩くだけではわからない部分も多いため、実際に作ってみようじゃないか、というのが、今回の記事の趣旨です。 とはいえ、実際の大規模言語モデルは、GPUを何台も用意するレベルで、…

ogi_kimuraの日記•3ヶ月前

電子化対応を支援する！請求書自動整理ツールのご紹介

最近思うこと 2024年1月に電子帳簿保存法が改定され、領収書や請求書を紙ではなく電子データのまま保存できるようになりました。さらに、同年10月には郵便料金の値上げも予定されています。この変化により、多くの企業では経営層や他部署から「なぜ電子化に対応していないのか？」という声が上がり、情報システム部門が大規模なシステム導入を迫られることが予想されます。こうしたシステムには数百万円から数千万円の投資が必要で、導入の際には費用対効果が重要なポイントとなります。 ただ、電子化によって削減される作業時間を正確に定量化するのは難しく、その効果を見える形にすることは簡単ではありません。削減された業務時間を…

Gigamix Online•3ヶ月前

Tablacus DISK ROM Lite　MSX BASICのディスクソフトをROMカートリッジへ変換！

【2024.09.09更新】「似非DOS for MSX」対応に関する解説、対応するBASIC命令を追加しました。 【2023.08.20更新】初版公開 これから新たにMSX BASICで趣味のソフトをリリースしたかったり、過去にMSX BASICで制作したソフトを現在に再配布したいようなニーズ、ありますよね（あるってことにしてください）。 今や入手困難なフロッピーディスクで開発・配布していたMSX BASICのデジタルコンテンツを今からリリースするなら、フロッピーからROMへのメディアコンバートが今後重要となります。 そして、こんな辺境なブログを見ている読者の皆様にぜひ知っていただきたい技術…

はまやんはまやんはまやん•6ヶ月前

SECCON Beginners CTF 2024 Writeups

https://score.beginners.seccon.jp/ whitecatsで20位！SECCON Beginners CTFなので詳細に書こうかと思っていたら、Writeupバトルに出遅れて質の良いWriteupに溢れていたのでいつも通り淡泊に書きます。 チームメイトのWriteup！ SECCON Beginners CTF 2024 Write-up - amaga38のブログ [Misc] commentator [Crypto] Safe Prime [Web] wooorker [Web] wooorker2 [Web] ssrforlfi [Web] double-l…

kanekunのメモ•8ヶ月前

VBA(１行単位で別ファイル化)

Sub ReadAndWriteTextFile() Dim inputFile As String Dim lineText As String Dim lineCount As Long ' 入力ファイルのパスを指定 inputFile = "C:\input.txt" ' 入力ファイルを開く Open inputFile For Input As #1 ' 行番号を初期化 lineCount = 1 ' 入力ファイルの終わりまで1行ずつ読み込む Do Until EOF(1) Line Input #1, lineText ' 出力ファイル名を生成 Dim outputFile As S…

st98 の日記帳 - コピー•8ヶ月前

AmateursCTF 2024 writeup

4/6 - 4/10という日程で開催された。BunkyoWesternsで参加して6位。なかなかの開催期間の長さだった。 [Web 53] denied (856 solves) [Web 184] one-shot (282 solves) [Web 302] sculpture (95 solves) [Jail 207] sansomega (230 solves) [Jail 355] javajail2 (54 solves) [Web 53] denied (856 solves) what options do i have? (URL) 添付ファイル: index.js 以下の…

りんちゃんの日記•9ヶ月前

Access CSVインポート(複数ファイル）

指定フォルダの全てのファイルを一括でインポートする Private Sub test_Click() '指定フォルダ内のファイル名一覧を配列に格納する方法 'ファイル取得変数 Dim strFile() As String '動的配列宣言 Dim strPath As String 'フォルダのフルパス Dim strType As String 'ファイルタイプ Dim tmpName As String 'ファイル名 Dim i As Long 'カウンタ Dim j As Long '行カウンタ 'ADO接続変数 Dim cnn As ADODB.Connection Dim rs As…

def yasuharu519(self):•9ヶ月前

トヨタ自動車プログラミングコンテスト2024#3（AtCoder Beginner Contest 344）振り返り

最初にまとめ 先週に引き続き Rated で参加。前回スコアがあまり伸びなかったので今日こそ伸ばすぞ！という気持ちで望んだ。 ABC 344 は今までの ABC に比べると解けそうな問題が多かったのだけど、実装ミスを多く出してしまってペナルティを多く食らってしまったのがショック。 久々? というか初? の A~E の5完で、今回は比較的解きやすい問題が多かったのもあるかもしれないのだけど素直に嬉しい。 D 問題は再帰か DP かとなったときにどうしても再帰のほうが理解しやすくてそちらにしがち。今回は再帰でも書けたのだけど、DPでしか解けない問題も多いのでそちらの練習もせねば。 A - Spoi…

toufubanzの日記•1年前

AccessVBAからPythonを呼び出す

Shell関数ではなくWScript.ShellオブジェクトのRunメソッドを使用し、そのメソッドの第二引数にTrueを指定して同期的に実行する必要があります。これにより、Pythonスクリプトが終了するまでVBAコードの実行が待機状態になります。 以下のコードは、Pythonスクリプトの同期実行とエラーログのチェックを組み合わせた例です。 Access VBA コード例（同期実行とエラーログチェック） Sub ExportTableToCSVAndRunPythonWithSyncAndLogCheck() Dim tableName As String Dim exportFilePath…

sakamttyの日記•1年前

vba

Sub 検索() Dim ファイルパス As String Dim 検索ワード As String Dim テキスト行 As String Dim 行番号 As Long ' ファイルパスと検索ワードを設定 ファイルパス = "C:\Path\To\Your\File.txt" ' ファイルの実際のパスに置き換えてください 検索ワード = "安全のご注意" ' ファイルを開く Open ファイルパス For Input As #1 ' ファイルを行ごとに読み込み、検索ワードが含まれているか確認 行番号 = 0 Do While Not EOF(1) Line Input #1, テキスト行 行…