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

## vba_make_arrow.vb
' @description Insert an arrow in the selection hatena: entry/20181121/1542802915
' @auther n.
' @version 1.0
' @since 2018.11.21
' @update 2018.11.21

Sub makeArrow()

    Dim r As Range
    Set r = Selection

## __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ファイルの読み書きをできるようにする

  
## 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


## 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

## VBS_FileExists_FolderExists.vbs
Dim filePath
Dim folderPath

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(filePath) then

    'あるよ
Else
    'ないよ

## vbs_logger.vbs
class Logger
'------------------------------------------------------
'@ description : Logger
'@ auther : t.n
'@ version : 1.0
'@ since : 2020.4.4
'@ update : 2020.4.4
'------------------------------------------------------

    private fso

## vba_init_value.vb
Sub initValue()

    Dim initBoolean As Boolean
    Dim initByte As Byte
    Dim initInteger As Integer
    Dim initLong As Long
    Dim initSingle As Single
    Dim initDouble As Double
    Dim initCurrency As Currency
    Dim initDate As Date
	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
	' @description Insert an arrow in the selection hatena: entry/20181121/1542802915
	' @auther n.
	' @version 1.0
	' @since 2018.11.21
	' @update 2018.11.21

	Sub makeArrow()

	Dim r As Range
	Set r = Selection
	$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
	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
	Dim filePath
	Dim folderPath

	Set fso = CreateObject("Scripting.FileSystemObject")

	If fso.FileExists(filePath) then

	'あるよ
	Else
	'ないよ
	class Logger
	'------------------------------------------------------
	'@ description : Logger
	'@ auther : t.n
	'@ version : 1.0
	'@ since : 2020.4.4
	'@ update : 2020.4.4
	'------------------------------------------------------

	private fso
	Sub initValue()

	Dim initBoolean As Boolean
	Dim initByte As Byte
	Dim initInteger As Integer
	Dim initLong As Long
	Dim initSingle As Single
	Dim initDouble As Double
	Dim initCurrency As Currency
	Dim initDate As Date