Visual Basic

Pavlex4 wrote:

I add ORDER BY RAND() but I won't show random word other time!!!

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

string cs = @"Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename= C:\Users\Pavle\Documents\Visual Studio 2015\Projects\Test slagalica\Test slagalica\Slagalica-DB.mdf;Integrated Security=True";
            string queryString = "SELECT * FROM table1 WHERE LEN(Reci) >=10 AND LEN(Reci) <=12 ORDER BY NEWID()";
            using (SqlConnection connection = new SqlConnection(cs))
            {
                SqlCommand mycommand = new SqlCommand(queryString, connection);
                try
                {
                    connection.Open();
                    string word = (string)mycommand.ExecuteScalar();
                    label14.Text = word;
                }
                catch (Exception ex)
                {
                    MessageBox.Show(ex.Message);
                }
            }

Pavlex4 wrote:

I shuffled word like this: string shuffled_word = new string(word.OrderBy(r => random.Next()).ToArray());

Pavlex4 wrote:

But I don't know how to every time I click button show letter of word on other label?

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

Pavlex4 wrote:

How to make that when user enter word using given random letters from labels in textbox,user cannot enter letter that does not exist in given letters!!!

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

If [property].PropertyType.Name = GetType(List(Of )).Name Then
'I do not know what to do!!!!!!!!!!!!!!!!!?????????????

Else
Dim Object1Value As String = String.Empty
Dim Object2Value As String = String.Empty
If type.GetProperty([property].Name).GetValue(Object1, Nothing) IsNot Nothing Then
Object1Value = type.GetProperty([property].Name).GetValue(Object1, Nothing).ToString()
End If
If type.GetProperty([property].Name).GetValue(object2, Nothing) IsNot Nothing Then
Object2Value = type.GetProperty([property].Name).GetValue(object2, Nothing).ToString()
End If
If Object1Value.Trim() <> Object2Value.Trim() Then
Return False
End If

End If

Private Sub Command1_Click(index As Integer)

Call Command1_Click(0)

Member 1267546 wrote:

Kindly advice me.

Member 1267546 wrote:

but its not properly working.

Hi, actually i have created the script but its not properly working. Here is the code snippets

'Getting the inputs from the user - (script lies in the path of "D:\OfficeCode\Myscript.vbs" say example and need to get all the folders under "D:\OfficeCode"

Dim DestFolder,objFSO,bFileAffected,lFlag
bFileAffected = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFolder = objFSO.GetParentFolderName(wscript.ScriptFullName)
Set objStartFolder = objFSO.GetFolder(objFolder)
'msgbox objStartFolder.Path

lob= InputBox("Enter the LOB Name", "Program","MyLOB")
If Trim(lob)="" or IsNumeric(lob) Then
Msgbox "Invalid LOB.Please Enter the LOB",,"Program"
WScript.Quit
End If

moyr= InputBox("Enter the Month & Year", "Program", MonthName(Month(Now()),1) & " " & Year(date))
If Trim(lob)="" or IsNumeric(moyr) Then
Msgbox "Invalid Date/Year.Please Enter the Date/Year",,"Program"
WScript.Quit
End If

ShowSubFolders(objStartFolder)

'Here I am recursively calling the function to get all the folders under D:\OfficeCode
Sub ShowSubFolders(Folder)

For Each Subfolder in Folder.SubFolders
GetDestFolder(Subfolder)
ShowSubFolders Subfolder
Next
End Sub

'Creating folder under "D:\OfficeCode\1101" as "\LOB\Year"
'After executing the ChkFiles function here it is again creating LOB\Year folder under "D:\OfficeCode\1101\LOB\Year" as "D:\OfficeCode\1101\\LOB\Year\LOB\Year"
'Now here it want to go back to "D:\OfficeCode\" and get another folder after 1101 ie. 1102 and 'fetch the folder D:\OfficeCode\1102 and again create the below 2 folders "\LOB\Year" under this.

'This process to be repeated for all the folders in "D:\OfficeCode"

Sub GetDestFolder(pFolder)

FlName = pFolder.Path & "\" & lob
If Not objFSO.FolderExists(FlName) Then
Set objFolder = objFSO.CreateFolder(FlName)
End If
FlName = pFolder.Path & "\" & lob & "\" & moyr
If Not objFSO.FolderExists(FlName) Then
Set objFolder = objFSO.CreateFolder(FlName)
End If
End Sub

'Here copy the files in the outer folder "D:\OfficeCode\1101" to inner created folder "D:\OfficeCode\1101\LOB\Year"

Function ChkFiles(pFolder,pDestFolder)

Set objFolder = objFSO.GetFolder(pFolder)
Set colFiles = objFolder.Files
pDestTempFolder= pDestFolder & "\"
For Each objFile in colFiles
strFileName = objFile.Name
If objFSO.GetExtensionName(strFileName) = "pdf" Then
DestFile=objFile.Name
sFile= pFolder & "\" & DestFile
Wscript.Echo "Source File " & sFile
Wscript.Echo "Dest Folder " & pDestTempFolder 'pDestFolder
If objFSO.FileExists(sFile) and pDestFolder<>"" Then
objFSO.CopyFile sFile, pDestTempFolder, True
objFSO.DeleteFile sFile
bFileAffected = True
End if

End If
Next
End Function

Kindly assist me.

Dear All

Please provide the solution as how to skip from the inner folder during "for each"  loop and jump to the main folder.