半週ごとのプロセスに必要なファイルを作成するビジュアル ベーシック プログラムがあります。これらのファイルは、.bas ファイル (qbasic 用) と .lot ファイル (voxco 自動化用) です。.bas ファイルがなくても、その機能をプログラムに直接組み込むことができます。ただし、.lot ファイルは必要です。通常、これらのファイルは古いファイルからコピーされ、手動で編集されます。ご想像のとおり、これは面倒です。しかし、私のプログラムで作成されたファイルは、私が持っている実行方法では正しく実行されません。手動で作成されたファイルと自動で作成されたファイルを比較すると、違いはほとんどないか、まったくありません。エンコーディングも問題ないようです。手動で作成されたファイルが正常に機能しているのに、プログラムによって作成されたファイルが正しく実行されない理由がわかりません。
.lot ファイルを作成するコードは次のとおりです。
Dim LotText As String
LotText = *removed*
Dim QuLines As String = Nothing
Dim Reader As New StreamReader(LotFilePath & OldStudy & ".LOT")
Dim SLine As String = Nothing
While Not Reader.EndOfStream
SLine = Reader.ReadLine()
If SLine.StartsWith("*QU") Then
QuLines = QuLines & SLine & vbCrLf
End If
End While
LotText = LotText & QuLines
Dim TempPath As String
TempPath = LotFilePath & "BackEnd\" & StudyID & ".LOT"
My.Computer.FileSystem.WriteAllText(TempPath, LotText, 0)