devxlogo

WriteToStdOutput – Write to standard output stream

WriteToStdOutput – Write to standard output stream

Option ExplicitPrivate Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) _    As LongPrivate Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, _    lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, _    lpNumberOfBytesWritten As Long, lpOverlapped As Any) As LongPrivate Const STD_OUTPUT_HANDLE = -11&' write to standard output channel'' NOTE: this routine works only in compiled applicationsSub WriteToStdOutput(ByVal Text As String)    Dim hStdOut As Long    Dim ret As Long    Dim bytesWritten As Long        ' get the handle of standard output    hStdOut = GetStdHandle(STD_OUTPUT_HANDLE)        ' write to standard output    ret = WriteFile(hStdOut, ByVal Text, Len(Text), bytesWritten, ByVal 0&)        ' deal with errors    If ret = 0 Then        Err.Raise 1001, , "Unable to write to standard output"    ElseIf bytesWritten < Len(Text) Then        Err.Raise 1002, , "Incomplete write operation"    End IfEnd Sub

See also  lenso.ai - an AI reverse image search platform
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist