excel vba - Converting Dos Text Files to Unix in VBA fails -

-

i've followed suggestion in prior question , grabbed code don't useable file out of it. i've looked @ , don't see problem.

    public enum converttype dos2unix = 0 unix2dos = 1     end enum      public function convertfile(originalfile string, newfile string, econverttype converttype, _                         optional deleteoriginal boolean = false)  dim openfilenum, savefilenum integer dim newfilebuffer string   ' function open file , convert ' txt file format usable under *nix or dos on error goto error_found  openfilenum = freefile ' grab first free file open originalfile input #openfilenum ' open unix file     savefilenum = freefile ' free file write     open newfile binary #savefilenum ' open/create save file         while not eof(openfilenum)             line input #openfilenum, newfilebuffer ' retrive text (if unix file, entire text on 1 line)             if econverttype = dos2unix ' check type of conversion                 newfilebuffer = newfilebuffer & chr(10)             else                 newfilebuffer = replace(newfilebuffer, chr(10), vbcrlf)             end if             put #savefilenum, , newfilebuffer ' write out file         loop     close #savefilenum close #openfilenum  if deleteoriginal = true kill originalfile      exit_sub:     exit function

try this:

option explicit  sub testconversion()     convertfile "c:\test.txt" end sub  public sub convertfile(byval filename string)     const dos2unix = 1     dim fs object, txt string     set fs = createobject("scripting.filesystemobject")      txt = fs.opentextfile(filename, 1).readall  'forreading = 1     txt = iif(dos2unix = 1, replace(txt, vbcrlf, vblf), replace(txt, vblf, vbcrlf))     fs.opentextfile(filename, 2).write txt      'forwriting = 2 end sub

notes:

  • in notepad (windows) lines appear on 1 continuous line
  • all carriagereturn–linefeed combinations replaced linefeed characters

Comments

Post a Comment

Popular posts from this blog

qt - Using float or double for own QML classes -

-
i've created components , helper methods using c++ , qt used in qml gui. of methods calculate gui elements (size, transformations, scene graph items creation). target arm 32 bit using opengl / eglfs render output. opengl using float , qml using real (defined double ). what should use in c++ do not lose precision? if use qreal ( double ) shouldn't lose precision. if git grep float in qtbase.git , can find out bit more: dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0-* important behavior changes * dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0- dist/changes-5.2.0- - qt compiled qreal typedef'ed double on dist/changes-5.2.0: platforms. qreal float on arm chipsets before. guarantees more dist/changes-5.2.0- consistent behavior between platforms qt supports, binary dist/chan...
Read more

Create Outlook appointment via C# .Net -

-
i need create outlook appointment using microsoft.office.interop.outlook , while can work locally on own workstation , works if run web application via server's browser, not work when connect server externally. hence, think might permission issue. i changed application pool identity " localsystem " don't access denied error. unfortunately, doesn't work. the app behaves if appointment created, appointment doesn't appear in outlook. here include file on top of aspx.cs page using outlook = microsoft.office.interop.outlook; here code using pop appointment. outlook.application apptapp = new outlook.application(); outlook.appointmentitem appt = apptapp.createitem(outlook.olitemtype.olappointmentitem) outlook.appointmentitem; appt.subject = txtfirstname.text + " " + txtlastname.text; appt.body = txtcomment.text; appt.alldayevent = false; appt.start = datetime.parse(txtreminderdate.text + " 8:00 am"); appt.end = datetime.p...
Read more

ios - Swift Array Resetting Itself -

-
i have 2 arrays: pointhistory , datehistory . have nstimer , , when timer runs out, action called. in action appending int pointhistory , , current date string datehistory . here timer action: func timeraction() { let steppervalue = int(stepper.value) employee.numberofpoints = steppervalue networking.saveemployee(employee, completion: { (error) -> void in if error != nil { let alert = uialertcontroller(title: "error", message: "there error updating \(self.employee.name)'s points", preferredstyle: .alert) let alertaction = uialertaction(title: "ok", style: .cancel, handler: nil) alert.addaction(alertaction) self.presentviewcontroller(alert, animated: true, completion: nil) } }) var dateformatter = nsdateformatter() dateformatter.dateformat = "mm-dd-yyyy" dateformatter.timezone = nstimezone.localtimezone() var date = nsdate() var ...
Read more