Visual Basic

Member 4512356 wrote:

So kindly suggest what should we need to do on our Win 7 systems to fix this?

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

Member 9539647 wrote:

Every suggestion will be appreciated.

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

khalid333 wrote:

1- what the syntax can be used to query Entity framwork collections? is it Lambda function or LINQ expressions.

khalid333 wrote:

2- which vb concept is used to add extra methods that can applied to a class without use of inheritance? is it Anonymous classes or implicit typing or Nullable types or Extension methods.

khalid333 wrote:

<layer>.3- in ASP.NET ther is data-access layer created how to write a method that returns several objects to used in UI layer.

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

Bernhard Hiller wrote:

Otherwise you should know that C++ does not mean COM!

Bernhard Hiller wrote:

If the interface is defined with C++ header files (*.h), then you'll have to write a mixed mode (managed + unmanaged) dll in C++ which in turn can call your VB.Net dll

....
BCMcsv = Dir$(BCMdrive & BCMtext)

Set objFSO = CreateObject("scripting.filesystemobject")
Set objCSV = objFSO.CreateTextFile(BCMdrive & BCMcsv, True, False)
Set objTXT = objFSO.OpenTextFile(BCMdrive & BCMcsv, 1)

sLines = Split(objTXT.ReadAll, vbCvLf)
objTXT.Close

iNumberOfLines = UBound(sLines)

If iNumberOfLines > 1 Then
    Set objTXT = objFSO.OpenTextFile(objCSV, 2) 'For Writing
    For i = 1 To iNumberOfLines
        objTXT.WriteLine sLines(i)
    Next
        objTXT.Close
End If

...Set objects = nothing ...

...
BCMcsv = Dir$(BCMdrive & BCMtext)

    Dim f1 As Long
    Dim f2 As Long
    Dim strLine As String

    f1 = FreeFile
    Open BCMdrive & BCMcsv For Input As #f1
    f2 = FreeFile
    Open BCMdrive & "tempBCM.txt" For Output As #f2
    Line Input #f1, strLine 'ignore first line
    
Do While Not EOF(1)
        Line Input #f1, strLine
        Print #f2, strLine
Loop
    Close #f1
    Close #f2
...

Dim sr As System.IO.StreamReader
Dim sw As System.IO.StreamWriter
Dim sLine As String
Dim iCount As Integer = 0

sr = New System.IO.StreamReader("C:\temp\file1.txt")
sw = New System.IO.StreamWriter("C:\temp\file2.txt")

sLine = sr.ReadLine()
While Not (sLine Is Nothing)
    iCount = iCount + 1
    If (iCount > 1) Then
        sw.WriteLine(sLine)
    End If
    sLine = sr.ReadLine()
End While

sr.Close()
sr.Dispose()

sw.Close()
sw.Dispose()