How to get the current path using VBScript

August 23, 2016

To get the current path using VBScript you can use the snippet below.

Samples

VBScript Sample

msgbox GetCurrentFolder()

Function GetCurrentFolder()
	Dim FSO
	Set fso = CreateObject("Scripting.FileSystemObject")
    GetCurrentFolder= FSO.GetAbsolutePathName(".")
End Function

msgbox GetCurrentFolder()

Function GetCurrentFolder()

Dim FSO

Set fso = CreateObject("Scripting.FileSystemObject")

GetCurrentFolder= FSO.GetAbsolutePathName(".")

End Function

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

How to disable all links using jQuery

Administrator

August 5, 2016

6 Comments

To disable all links using jQuery you cna use the snippet below.

Samples

jQuery Sample

<script type="text/javascript">
   $("a").click(function() { return false; });
</script>

$("a").click(function() { return false; });

</script>

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

.click()

How to remove class after delay in jQuery

Administrator

August 4, 2016

4 Comments

To remove class after delay in jQuery you can use one of the snippet below.

Samples

jQuery Sample using setTimeout()

var element = $('#element');
element.addClass('current');
setTimeout(function() {
	element.removeClass('current');
}, 2500);

var element = $('#element');

element.addClass('current');

setTimeout(function() {

element.removeClass('current');

}, 2500);

Samples

jQuery Sample using delay() and queue()

$("#element").addClass("testclass").delay(2500).queue(function(next){
    $(this).removeClass("testclass");
    next();
});

$("#element").addClass("testclass").delay(2500).queue(function(next){

$(this).removeClass("testclass");

next();

});

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

How to check if a value is a double value in Android (Java)

Administrator

August 4, 2016

4 Comments

To check if a value is a double value in Android you can use the snippet below.

Samples

Java (Android) Sample

public static boolean IsDoubleValue(String input) {
	if(!TextUtils.isEmpty(input.trim())) { //use <em>if(!input.trim().toString().equals("")) {</em> if you are not on the Android platform
		String regExp = "[\\x00-\\x20]*[+-]?(((((\\p{Digit}+)(\\.)?((\\p{Digit}+)?)([eE][+-]?(\\p{Digit}+))?)|(\\.((\\p{Digit}+))([eE][+-]?(\\p{Digit}+))?)|(((0[xX](\\p{XDigit}+)(\\.)?)|(0[xX](\\p{XDigit}+)?(\\.)(\\p{XDigit}+)))[pP][+-]?(\\p{Digit}+)))[fFdD]?))[\\x00-\\x20]*";
		return input.matches(regExp);
	}else{
		return false;
	}
}

public static boolean IsDoubleValue(String input) {

if(!TextUtils.isEmpty(input.trim())) { //use <em>if(!input.trim().toString().equals("")) {</em> if you are not on the Android platform

String regExp = "[\\x00-\\x20]*[+-]?(((((\\p{Digit}+)(\\.)?((\\p{Digit}+)?)([eE][+-]?(\\p{Digit}+))?)|(\\.((\\p{Digit}+))([eE][+-]?(\\p{Digit}+))?)|(((0[xX](\\p{XDigit}+)(\\.)?)|(0[xX](\\p{XDigit}+)?(\\.)(\\p{XDigit}+)))[pP][+-]?(\\p{Digit}+)))[fFdD]?))[\\x00-\\x20]*";

return input.matches(regExp);

}else{

return false;

}

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

How to refresh the current Android Fragment

Administrator

June 9, 2016

4 Comments

To refresh the current Android Fragment you can use the snippet below. The code must be placed inside the Fragment that needs to be updated. The snippet will call the onCreateView Method of the Fragment.

Samples

Sample Java

getFragmentManager().beginTransaction().detach(this).attach(this).commit();

1	getFragmentManager().beginTransaction().detach(this).attach(this).commit();

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

Colorpicker

Administrator

December 1, 2015

0 Comments

We have just released another tool in our new Tools section. It’s a online Colorpicker, which uses HTML, AngularJs and Bootstrap.

Colorpicker

If you have any questions or suggestions feel free to post a comment or Contact Us via Email.

How to export Gridview data to Excel using devexpress XtraGrid

Administrator

November 28, 2015

5 Comments

To export Gridview data to Excel using devexpress XtraGrid have a look at the sample below.

Samples

C# Sample

using System;
using System.Data;
using System.Data.SqlClient;
using System.Windows.Forms;
using DevExpress.XtraEditors;
using DevExpress.XtraGrid.Columns;

namespace de.Fesslersoft.ExportXtraGridToExcel
{
    public partial class ExportForm : Form
    {
        private DataTable _dataTable;

        public ExportForm()
        {
            InitializeComponent();
        }
        
        private void ExportForm_Load(object sender, EventArgs e)
        {
            FillDataTable();
            gridViewExport.OptionsBehavior.AutoPopulateColumns = true;
            gridViewExport.OptionsBehavior.ReadOnly = true;
            gridViewExport.OptionsBehavior.Editable = false;
            gridControlExport.DataSource = _dataTable;
        }

        private void FillDataTable()
        {
            //https://documentation.devexpress.com/#WindowsForms/CustomDocument2240
            SqlConnectionStringBuilder connectionStringBuilder = new SqlConnectionStringBuilder
            {
                DataSource = "localhost",
                IntegratedSecurity = true,
                InitialCatalog = "Northwind"
            };
            using (SqlConnection connection = new SqlConnection(connectionStringBuilder.ToString()))
            {
                connection.Open();
                string queryCommand = "SELECT TOP 100 [ProductID],[ProductName],[SupplierID],[CategoryID],[QuantityPerUnit],[UnitPrice],[UnitsInStock],[UnitsOnOrder],[ReorderLevel],[Discontinued] FROM [Northwind].[dbo].[Products]";
                using (SqlDataAdapter adapter = new SqlDataAdapter(queryCommand, connection))
                {
                    _dataTable = new DataTable();
                    adapter.Fill(_dataTable);
                }
            }
        }

        private void ExportToExcel()
        {
            //https://www.devexpress.com/Support/Center/Question/Details/Q430217
            //https://documentation.devexpress.com/#WindowsForms/CustomDocument1874
            //storing current layout
            gridViewExport.SaveLayoutToXml(@"C:\Users\mf\Desktop\Neuer Ordner\tempLayout.xml");
            foreach (GridColumn column in gridViewExport.Columns)
            {
                //make all export columns visible
                column.Visible = true;
            }
            gridViewExport.ExportToXls(@"C:\Users\mf\Desktop\Neuer Ordner\export.xls");
            //restoring the layout, the layout file needs to be deleted manually
            gridViewExport.RestoreLayoutFromXml(@"C:\Users\mf\Desktop\Neuer Ordner\tempLayout.xml");
        }

        private void buttonExportToExcel_Click(object sender, EventArgs e)
        {
            ExportToExcel();
            XtraMessageBox.Show("Export successfull!", this.Text, MessageBoxButtons.OK,MessageBoxIcon.Information,MessageBoxDefaultButton.Button1);
        }
    }
}

using System;

using System.Data;

using System.Data.SqlClient;

using System.Windows.Forms;

using DevExpress.XtraEditors;

using DevExpress.XtraGrid.Columns;

namespace de.Fesslersoft.ExportXtraGridToExcel

{

public partial class ExportForm : Form

{

private DataTable _dataTable;

public ExportForm()

{

InitializeComponent();

}

private void ExportForm_Load(object sender, EventArgs e)

{

FillDataTable();

gridViewExport.OptionsBehavior.AutoPopulateColumns = true;

gridViewExport.OptionsBehavior.ReadOnly = true;

gridViewExport.OptionsBehavior.Editable = false;

gridControlExport.DataSource = _dataTable;

}

private void FillDataTable()

{

//https://documentation.devexpress.com/#WindowsForms/CustomDocument2240

SqlConnectionStringBuilder connectionStringBuilder = new SqlConnectionStringBuilder

{

DataSource = "localhost",

IntegratedSecurity = true,

InitialCatalog = "Northwind"

};

using (SqlConnection connection = new SqlConnection(connectionStringBuilder.ToString()))

{

connection.Open();

string queryCommand = "SELECT TOP 100 [ProductID],[ProductName],[SupplierID],[CategoryID],[QuantityPerUnit],[UnitPrice],[UnitsInStock],[UnitsOnOrder],[ReorderLevel],[Discontinued] FROM [Northwind].[dbo].[Products]";

using (SqlDataAdapter adapter = new SqlDataAdapter(queryCommand, connection))

{

_dataTable = new DataTable();

adapter.Fill(_dataTable);

}

private void ExportToExcel()

{

//https://www.devexpress.com/Support/Center/Question/Details/Q430217

//https://documentation.devexpress.com/#WindowsForms/CustomDocument1874

//storing current layout

gridViewExport.SaveLayoutToXml(@"C:\Users\mf\Desktop\Neuer Ordner\tempLayout.xml");

foreach (GridColumn column in gridViewExport.Columns)

{

//make all export columns visible

column.Visible = true;

}

gridViewExport.ExportToXls(@"C:\Users\mf\Desktop\Neuer Ordner\export.xls");

//restoring the layout, the layout file needs to be deleted manually

gridViewExport.RestoreLayoutFromXml(@"C:\Users\mf\Desktop\Neuer Ordner\tempLayout.xml");

}

private void buttonExportToExcel_Click(object sender, EventArgs e)

{

ExportToExcel();

XtraMessageBox.Show("Export successfull!", this.Text, MessageBoxButtons.OK,MessageBoxIcon.Information,MessageBoxDefaultButton.Button1);

}

VB.NET Sample

Imports System.Data.SqlClient
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Columns

Public Partial Class ExportForm
    Inherits Form
    Private _dataTable As DataTable

    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub ExportForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillDataTable()
        gridViewExport.OptionsBehavior.AutoPopulateColumns = True
        gridViewExport.OptionsBehavior.[ReadOnly] = True
        gridViewExport.OptionsBehavior.Editable = False
        gridControlExport.DataSource = _dataTable
    End Sub

    Private Sub FillDataTable()
        'https://documentation.devexpress.com/#WindowsForms/CustomDocument2240
        Dim connectionStringBuilder As New SqlConnectionStringBuilder() With { _
                .DataSource = "localhost", _
                .IntegratedSecurity = True, _
                .InitialCatalog = "Northwind" _
                }
        Using connection As New SqlConnection(connectionStringBuilder.ToString())
            connection.Open()
            Dim queryCommand As String = "SELECT TOP 100 [ProductID],[ProductName],[SupplierID],[CategoryID],[QuantityPerUnit],[UnitPrice],[UnitsInStock],[UnitsOnOrder],[ReorderLevel],[Discontinued] FROM [Northwind].[dbo].[Products]"
            Using adapter As New SqlDataAdapter(queryCommand, connection)
                _dataTable = New DataTable()
                adapter.Fill(_dataTable)
            End Using
        End Using
    End Sub

    Private Sub ExportToExcel()
        'https://www.devexpress.com/Support/Center/Question/Details/Q430217
        'https://documentation.devexpress.com/#WindowsForms/CustomDocument1874
        'storing current layout
        gridViewExport.SaveLayoutToXml("C:\Users\mf\Desktop\Neuer Ordner\tempLayout.xml")
        For Each column As GridColumn In gridViewExport.Columns
            'make all export columns visible
            column.Visible = True
        Next
        gridViewExport.ExportToXls("C:\Users\mf\Desktop\Neuer Ordner\export.xls")
        'restoring the layout, the layout file needs to be deleted manually
        gridViewExport.RestoreLayoutFromXml("C:\Users\mf\Desktop\Neuer Ordner\tempLayout.xml")
    End Sub

    Private Sub buttonExportToExcel_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
        ExportToExcel()
        XtraMessageBox.Show("Export successfull!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
    End Sub
End Class

Imports System.Data.SqlClient

Imports DevExpress.XtraEditors

Imports DevExpress.XtraGrid.Columns

Public Partial Class ExportForm

Inherits Form

Private _dataTable As DataTable

Public Sub New()

InitializeComponent()

End Sub

Private Sub ExportForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

FillDataTable()

gridViewExport.OptionsBehavior.AutoPopulateColumns = True

gridViewExport.OptionsBehavior.[ReadOnly] = True

gridViewExport.OptionsBehavior.Editable = False

gridControlExport.DataSource = _dataTable

End Sub

Private Sub FillDataTable()

'https://documentation.devexpress.com/#WindowsForms/CustomDocument2240

Dim connectionStringBuilder As New SqlConnectionStringBuilder() With { _

.DataSource = "localhost", _

.IntegratedSecurity = True, _

.InitialCatalog = "Northwind" _

}

Using connection As New SqlConnection(connectionStringBuilder.ToString())

connection.Open()

Dim queryCommand As String = "SELECT TOP 100 [ProductID],[ProductName],[SupplierID],[CategoryID],[QuantityPerUnit],[UnitPrice],[UnitsInStock],[UnitsOnOrder],[ReorderLevel],[Discontinued] FROM [Northwind].[dbo].[Products]"

Using adapter As New SqlDataAdapter(queryCommand, connection)

_dataTable = New DataTable()

adapter.Fill(_dataTable)

End Using

End Sub

Private Sub ExportToExcel()

'https://www.devexpress.com/Support/Center/Question/Details/Q430217

'https://documentation.devexpress.com/#WindowsForms/CustomDocument1874

'storing current layout

gridViewExport.SaveLayoutToXml("C:\Users\mf\Desktop\Neuer Ordner\tempLayout.xml")

For Each column As GridColumn In gridViewExport.Columns

'make all export columns visible

column.Visible = True

gridViewExport.ExportToXls("C:\Users\mf\Desktop\Neuer Ordner\export.xls")

'restoring the layout, the layout file needs to be deleted manually

gridViewExport.RestoreLayoutFromXml("C:\Users\mf\Desktop\Neuer Ordner\tempLayout.xml")

End Sub

Private Sub buttonExportToExcel_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click

ExportToExcel()

XtraMessageBox.Show("Export successfull!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

End Sub

End Class

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

How to select an element with its name attribute in jQuery

Administrator

November 26, 2015

8 Comments

To select an element with its name attribute in jQuery you can use the snippet below.

Samples

Javascript Sample

$('div[name="de.Fesslersoft.Testname"]').css({"border-color": "#000000", "border-width":"15px", "border-style":"solid"});

1	$('div[name="de.Fesslersoft.Testname"]').css({"border-color": "#000000", "border-width":"15px", "border-style":"solid"});

if you remove the div in div[name=”de.Fesslersoft.Testname”] you will get all elements with the specific name.

You can also have a look at this JSFiddle.

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

Attribute Equals Selector [name=”value”]

XML Formatter

Administrator

November 25, 2015

0 Comments

We have just released another tool in our new Tools section. It’s a online XML Formatter, which uses HTML, AngularJs and Bootstrap.

XML Formatter

If you have any questions or suggestions feel free to post a comment or Contact Us via Email.

UUID / GUID generator

Administrator

November 24, 2015

0 Comments

We have just released another tool in our new Tools section. It’s a online UUID/GUID generator, which uses HTML, AngularJs and Bootstrap.

UUID/GUID Generator

If you have any questions or suggestions feel free to post a comment or Contact Us via Email.

CODE SNIPPETS

CODESNIPPETS FOR .NET, SQL, JAVASCRIPT, JQUERY and more

How to get the current path using VBScript

Samples

VBScript Sample

How to disable all links using jQuery

Samples

jQuery Sample

How to remove class after delay in jQuery

Samples

jQuery Sample using setTimeout()

Samples

jQuery Sample using delay() and queue()

How to check if a value is a double value in Android (Java)

Samples

Java (Android) Sample

How to refresh the current Android Fragment

Samples

Sample Java

Colorpicker

How to export Gridview data to Excel using devexpress XtraGrid

Samples

C# Sample

VB.NET Sample

How to select an element with its name attribute in jQuery

Samples

Javascript Sample

XML Formatter

UUID / GUID generator