eggist77

## vba_read_text.vba
Sub read_text()

    Dim buf As String
    Dim n As Integer 'file number
    Dim file As String

    file = "C:\tmp\test.txt"
    n = FreeFile

    Open file For Input As #n

## nLib.vbs

'nLib Version = 1.11

Function dateFormat(ByVal format)

  ' format
  ' yyyymm
  ' yyyymmdd(default)
  ' yyyymmddhhmmss
  ' yyyymmdd_hhmmss

## vba_access_vba.vb
'保存ボタン
Private Sub saveBtn_Click()
    DoCmd.RunCommand acCmdSaveRecord
End Sub

'キャンセルボタン
Private Sub canselBtn_Click()
  Me.Undo
End Sub

## __vbs_get_ini_lib.md

      
              3 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                eggist77
                / __vbs_get_ini_lib.md
            
            
              Last active
              August 11, 2021 02:41
            
              
                vbs: get_ini_lib.vbs
              
          
    code: VBScript

description: VBScriptでINIファイルの読み書きをできるようにする

  
## gist:3143a27721ce867416f65f404f7bf17f
Sub formatCondition()

    Dim r As Range
    Dim formatCondition As FormatCondition

    '範囲設定
    Set r = Range("A1:A5")

    '条件付き書式の追加
    Set formatCondition = r.FormatConditions.Add(Type:=xlTextString, String:="OK", TextOperator:=xlContains)

## get_program_list.ps1
$CurrentDir = Split-Path $MyInvocation.MyCommand.Path

# 1
Get-ItemProperty HKLM:\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\* |
    Select-Object DisplayName, DisplayVersion, Publisher, InstallDate |
    Export-csv -path $CurrentDir"\ProgramList1.csv" -Encoding Default -NoTypeInformation

# 2
Get-ItemProperty HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\* |
    Select-Object DisplayName, DisplayVersion, Publisher, InstallDate |

## getFilePathDlgIE.vbs
Function getFilePathDlgIE()
	Dim ie
	Set ie = WScript.CreateObject("InternetExplorer.Application")
	ie.Navigate "about:blank"
	Do While ie.Busy = True And ie.ReadyState <> 4 'READYSTATE_COMPLETE = 4
		WScript.Sleep 100
	Loop

	ie.document.write "<html><body><input type='file' id='selectFileDialog'></body></html>"
	ie.document.getElementById("selectFileDialog").click

## getFilePathDlgExcel.vbs
Function getFilePathDlgExcel()
	Dim excel
	Set excel = CreateObject("Excel.Application")
	buf = excel.GetOpenFilename("Text File,*.txt,All,*.*",1,"ファイルを選択して下さい","開く",false)
	If buf <> False Then
		getFilePathDlgExcel = buf
	Else
	    WScript.Quit
	End If


## textWrite.vbs

'Write to a text file

'iomode
Const ForReading = 1, ForWriting = 2, ForAppending = 8

txtFile = "txtfile.txt"

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(txtFile, ForAppending, True)

## getFileList.vbs
Set fso = CreateObject("Scripting.FileSystemObject")

folderPath = "."

getFileList fso.getFolder(folderPath)

sub getFileList(ByVal folder)

    for each subFolder in folder.subfolders
        WScript.Echo "d," & subFolder.name & "," & subFolder.size & "," & subFolder.ParentFolder
	Sub read_text()

	Dim buf As String
	Dim n As Integer 'file number
	Dim file As String

	file = "C:\tmp\test.txt"
	n = FreeFile

	Open file For Input As #n

	'nLib Version = 1.11

	Function dateFormat(ByVal format)

	' format
	' yyyymm
	' yyyymmdd(default)
	' yyyymmddhhmmss
	' yyyymmdd_hhmmss
	'保存ボタン
	Private Sub saveBtn_Click()
	DoCmd.RunCommand acCmdSaveRecord
	End Sub

	'キャンセルボタン
	Private Sub canselBtn_Click()
	Me.Undo
	End Sub
	Sub formatCondition()

	Dim r As Range
	Dim formatCondition As FormatCondition

	'範囲設定
	Set r = Range("A1:A5")

	'条件付き書式の追加
	Set formatCondition = r.FormatConditions.Add(Type:=xlTextString, String:="OK", TextOperator:=xlContains)
	$CurrentDir = Split-Path $MyInvocation.MyCommand.Path

	# 1
	Get-ItemProperty HKLM:\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\* \|
	Select-Object DisplayName, DisplayVersion, Publisher, InstallDate \|
	Export-csv -path $CurrentDir"\ProgramList1.csv" -Encoding Default -NoTypeInformation

	# 2
	Get-ItemProperty HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\* \|
	Select-Object DisplayName, DisplayVersion, Publisher, InstallDate \|
	Function getFilePathDlgIE()
	Dim ie
	Set ie = WScript.CreateObject("InternetExplorer.Application")
	ie.Navigate "about:blank"
	Do While ie.Busy = True And ie.ReadyState <> 4 'READYSTATE_COMPLETE = 4
	WScript.Sleep 100
	Loop

	ie.document.write "<html><body><input type='file' id='selectFileDialog'></body></html>"
	ie.document.getElementById("selectFileDialog").click
	Function getFilePathDlgExcel()
	Dim excel
	Set excel = CreateObject("Excel.Application")
	buf = excel.GetOpenFilename("Text File,.txt,All,.*",1,"ファイルを選択して下さい","開く",false)
	If buf <> False Then
	getFilePathDlgExcel = buf
	Else
	WScript.Quit
	End If

	'Write to a text file

	'iomode
	Const ForReading = 1, ForWriting = 2, ForAppending = 8

	txtFile = "txtfile.txt"

	Set fso = WScript.CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(txtFile, ForAppending, True)
	Set fso = CreateObject("Scripting.FileSystemObject")

	folderPath = "."

	getFileList fso.getFolder(folderPath)

	sub getFileList(ByVal folder)

	for each subFolder in folder.subfolders
	WScript.Echo "d," & subFolder.name & "," & subFolder.size & "," & subFolder.ParentFolder