Convert english CSV to CSV with local settings separator

[julien]

For people who want to paste directly CSV data into Excel, on a machine which is not using US local settings:

VBScript:

Code: Select all

reg = "HKEY_CURRENT_USER\Control Panel\International"

sListEn =  ","
sDecimalEn = "."
sThousandEn = ","
sDateEn = "/"
sTimeEn = ":"
sString = """"

Set sh = CreateObject("WScript.Shell")
sListLc =  sh.RegRead (reg & "\sList")
sDecimalLc = sh.RegRead (reg & "\sDecimal")
sThousandLc = sh.RegRead (reg & "\sThousand")
sDateLc = sh.RegRead (reg & "\sDate")
sTimeLc = sh.RegRead (reg & "\sTime")

convert = MsgBox("Convert to local CSV format (YES)" & chr(13) & "or convert to English format (NO)?", vbYesNoCancel + vbQuestion, "CSV convert")

If convert = vbYes Then
  f = Clipboard.Value
  l = len(f)
  s = False
  t = ""
  For i = 1 To l
    c = Mid(f, i, 1)
	If c = sString Then
	  s = Not s
	End If
	If Not s Then
      Select Case (c)
      Case sListEn
        c = sListLc
      Case sDecimalEn
        c = sDecimalLc
      Case sThousandEn
        c = sThousandLc
      Case sDateEn
        c = sDateLc
      Case sTimeEn
        c = sTimeLc
      End Select
	End If
    t = t & c
  Next
  Clipboard.Value = t
ElseIf convert = vbNo Then 
  f = Clipboard.Value
  l = len(f)
  s = False
  t = ""
  For i = 1 To l
    c = Mid(f, i, 1)
	If c = sString Then
	  s = Not s
	End If
	If Not s Then
      Select Case (c)
      Case sListLc
        c = sListEn
      Case sDecimalLc
        c = sDecimalEn
      Case sThousandLc
        c = sThousandEn
      Case sDateLc
        c = sDateEn
      Case sTimeLc
        c = sTimeEn
      End Select
	End If
    t = t & c
  Next
  Clipboard.Value = t
End If

Direct file:

Convert english CSV to CSV with local settings separator.zip

(789 Bytes) Downloaded 461 times

Julien