Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

vbscript - issue with script.. line 31 bad file mode..

Posted on 2010-11-17
6
487 Views
Last Modified: 2012-05-10
getting bad file mode on this....

need copy and paste the <asp...
then
the html code

then paste the </asp:panel....

repeat...
dim objArgs, objFile1, objFile2, FileStream1,FileStream2, i , slIN1, sLINE2, j, sline3, sline4, sline5, k, allLines

Set objArgs = Wscript.Arguments
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objFile1 = objFSO.GetFile(objArgs(0))
'Set objFile2 = objFSO.GetFile(objArgs(1))
Set FileStream1 = objFSO.OpenTextFile("D:\Desiition\design_1\index.htm")
Set FileStream2 = objFSO.OpenTextFile("C:\Documentstings\NBDFFR\PRGS\VBSCRIPT\test_panel_web.txt")



For i = 1 to 50
    ' READ THE DRIVE FILE IN...
    Set FileStream1 = objFSO.OpenTextFile("D:\Desiition\design_" & i & "\index.htm")
   
    sLine1 = FileStream1.ReadLine()
    

    ' READ THE ASP:panel CODE IN...
     ' sline2 = "this"
 
     sline2 = "<asp:Panel ID=""Panel"" " & i & " runat=""server"" Height=""1599px"">"

    sline3 = "</asp:Panel>"
    sline4 = ""
    sline5 = ""

    

   Filestream2.writeline Sline1
   ' GOTO NEXT LINE IN FILESTREAM 2 AND PASTE..
   Filestream2.writelIne sline2
 ' GOTO NEXT LINE IN FILESTREAM 2 AND PASTE...
   Filestream2.writeline sline3
 ' GOTO NEXT LINE IN FILESTREAM 2 AND PASTE...
   Filestream2.writeline sline4
 ' GOTO NEXT LINE IN FILESTREAM 2 AND PASTE...
   Filestream2.writeline sline5

   


Next

msgbox("complete")

Open in new window

0
Comment
Question by:GlobaLevel
  • 3
  • 2
6 Comments
 
LVL 58

Accepted Solution

by:
cyberkiwi earned 500 total points
ID: 34160107
Both of your files are opened for reading only

Set FileStream1 = objFSO.OpenTextFile("D:\Desiition\design_1\index.htm")
Set FileStream2 = objFSO.OpenTextFile("C:\Documentstings\NBDFFR\PRGS\VBSCRIPT\test_panel_web.txt")

http://msdn.microsoft.com/en-us/library/314cz14s%28VS.85%29.aspx

For example, to create fs1 if it doesn't exist, but append if it does

Set FileStream1 = objFSO.OpenTextFile("D:\Desiition\design_1\index.8tm", 2, true)
0
 
LVL 13

Expert Comment

by:F Igor
ID: 34160186
Use the second parameter of OpenTextFile

1=ForReading - Open a file for reading. You cannot write to this file. (readonly)
2=ForWriting - Open a file for writing (create)
8=ForAppending - Open a file and write to the end of the file (append)

Set FileStream2 = objFSO.OpenTextFile("C:\Documentstings\NBDFFR\PRGS\VBSCRIPT\test_panel_web.txt",2)
0
 
LVL 10

Author Comment

by:GlobaLevel
ID: 34164682
getting closer...but its not reading in the whole html file...
0
Resolve Critical IT Incidents Fast

If your data, services or processes become compromised, your organization can suffer damage in just minutes and how fast you communicate during a major IT incident is everything. Learn how to immediately identify incidents & best practices to resolve them quickly and effectively.

 
LVL 10

Author Comment

by:GlobaLevel
ID: 34164692
giving me this...

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 1 runat="server" Height="1599px">
</asp:Panel>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 2 runat="server" Height="1599px">
</asp:Panel>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 3 runat="server" Height="1599px">
</asp:Panel>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 4 runat="server" Height="1599px">
</asp:Panel>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 5 runat="server" Height="1599px">
</asp:Panel>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 6 runat="server" Height="1599px">
</asp:Panel>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 7 runat="server" Height="1599px">
</asp:Panel>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 8 runat="server" Height="1599px">
</asp:Panel>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<asp:Panel ID="Panel" 9 runat="server" Height="1599px">
</asp:Panel>

0
 
LVL 10

Author Comment

by:GlobaLevel
ID: 34164714
its stops readin in the html file after it sees the space..

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
      <titl
0
 
LVL 58

Expert Comment

by:cyberkiwi
ID: 34168565
This is not the bad file mode issue anymore.
It's logic - basically you have no loop, there should be a test for EOF, but you have it hardcoded to loop through 50 lines... (I think if I read correctly)
0

Featured Post

How our DevOps Teams Maximize Uptime

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us. Read the use case whitepaper.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Active Directory replication delay is the cause to many problems.  Here is a super easy script to force Active Directory replication to all sites with by using an elevated PowerShell command prompt, and a tool to verify your changes.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
The viewer will learn how to dynamically set the form action using jQuery.
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

860 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question