请问怎样把几个TextBox里的内容写进一个*.txt文件里面？？

kgdlnyq 2003-08-26 12:46:52

还有加一个格式的控制
如果导出到word文件又怎样呢？？

...全文

93 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

一个背景透明Textbox控件的源代码,很不错的东西

谈到宏，很多人想到的是宏病毒，其实如果有正版杀毒软件，打开了实时防护，设置好宏安全性，可以利用宏来完成许多办公自动化功能。　　打开word软件，从文件主菜单中“工具”->“宏”->“安全性”，设置安全性为中，这样就可以选择执行宏。安装office的时候，应该定制安装，在“office 工具”里选上“Visual Basic帮助”，这样就能获得非常完善的关于VBA编程环境、VBA语言参考、VBA对象等的帮助文档。从“工具”->“宏”->“Visual Basic 编辑器”可以打开VBA编程环境——“Microsoft Visual Basic”。在编程环境中打开“帮助”->“Microsoft Visual Basic帮助”，就可以看到帮助了。　　很多人觉得学习Visual Basic没有用，事实上，Visual Basic系列的编程语言包括VB、VBA、VBScript等，可以写网页、办公自动化编程、应用编程。在一些其他公司的应用软件中也是可以用VBA的，例如Corel Draw。这里举几个例子来说明VBA的使用。　　如果有数十个文档需要合并为一个文档，逐个打开、拷贝是件麻烦事，可以用宏来完成。例一：合并文档。新建一个窗体，窗体上放一个按钮。工具箱可以从“视图”->“工具箱”打开。 '按钮事件 Private Sub CommandButton1_Click() Dim sPath As String 'sPath用来保存路径 Dim tem As String '中间变量 Set newDoc = Documents.Add '用Documents.Add增加一个新文档 With newDoc .SaveAs FileName:="D:/txtal.doc" '新文档保存的完整路径 End With ActiveDocument.close '关闭新建的文档 With Dialogs(wdDialogFileFind) '设置文本查找对话框 .SortBy = 2 '文件按名称排列 .SearchName = "*.txt" '只列出文本文件 .Update '更新 End With If Dialogs(wdDialogFileFind).Show = -1 Then '如果按下打开，就执行 sPath = Dialogs(wdDialogFileFind).SearchPath '将查找对话框打开的路径附值给SPath Dialogs(wdDialogFileFind).Execute Else Exit Sub '如果取消或者关闭，就退出 End If With Application.FileSearch '设置应用程序的查找 .NewSearch '新查找 .LookIn = sPath '将新查找的路径设置为文件对话框的路径（sPath） .SearchSubFolders = True '查找子目录 .FileType = msoFileTypeAllFiles '查找所有文件类型，这里可以设置其他类型，具体见FileSearch对象的FileType属性 .FileName = "*.txt" '查找后缀为txt的文件 .Execute '执行文件查找 Documents.Open ("D:/txtal.doc") '打开"D:/txtal.doc" Set Range2 = ActiveDocument.Content '设置Range2对象为活动文档的内容 For i = 1 To .FoundFiles.Count '把找到的文件打开，拷贝文件内容，加到新建的D:/txtal.doc文件中 Documents.Open (.FoundFiles(i)) '打开第i个找到的文件 ActiveDocument.Content.Select '全选活动文件的内容 Selection.Copy '拷贝选中的内容 ActiveDocument.Close '关闭活动文档 Range2.Collapse Direction:=wdColla

ASP.NET程序中常用的三十三种代码 1. 打开新的窗口并传送参数：　　传送参数： response.write("window.open(’*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="+...+"’)") 　　接收参数： string a = Request.QueryString("id"); string b = Request.QueryString("id1"); 　　2.为按钮添加对话框 Button1.Attributes.Add("onclick","return confirm(’确认?’)"); button.attributes.add("onclick","if(confirm(’are you sure...?’)){return true;}else{return false;}") 　　3.删除表格选定记录 int intEmpID = (int)MyDataGrid.DataKeys[e.Item.ItemIndex]; string deleteCmd = "DELETE from Employee where emp_id = " + intEmpID.ToString() 　　4.删除表格记录警告 private void DataGrid_ItemCreated(Object sender,DataGridItemEventArgs e) { 　switch(e.Item.ItemType) 　{ 　　case ListItemType.Item : 　　case ListItemType.AlternatingItem : 　　case ListItemType.EditItem: 　　　TableCell myTableCell; 　　　myTableCell = e.Item.Cells[14]; 　　　LinkButton myDeleteButton ; 　　　myDeleteButton = (LinkButton)myTableCell.Controls[0]; 　　　myDeleteButton.Attributes.Add("onclick","return confirm(’您是否确定要删除这条信息’);"); 　　　break; 　　default: 　　　break; 　} } 　　5.点击表格行链接另一页 private void grdCustomer_ItemDataBound(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e) { 　//点击表格打开　if (e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem) 　　e.Item.Attributes.Add("onclick","window.open(’Default.aspx?id=" + e.Item.Cells[0].Text + "’);"); } 　　双击表格连接到另一页　　在itemDataBind事件中 if(e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem) { 　string OrderItemID =e.item.cells[1].Text; 　... 　e.item.Attributes.Add("ondblclick", "location.href=’../ShippedGrid.aspx?id=" + OrderItemID + "’"); } 　　双击表格打开新一页 if(e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem) { 　string OrderItemID =e.item.cells[1].Text; 　... 　e.item.Attributes.Add("ondblclick", "open(’../ShippedGrid.aspx?id=" + OrderItemID + "’)"); } 　　★特别注意：【?id=】处不能为【?id =】　　6.表格超连接列传递参数里 if (e.Item.ItemType == ListItemType.Item ||e.Item.ItemType == ListItemType.AlternatingItem) { e.Item.Attributes.Add("onmouseover","this.style.backgroundColor=’#99cc00’; 　　　this.style.color=’buttontext’;this.style.cursor=’default’;"); e.Item.Attributes.Add("onmouseout","this.style.backgroundColor=’’;this.style.color=’’;"); } 　　8.关于日期格式　　日期格式设定 DataFormatString="{0:yyyy-MM-dd}" 　　我觉得应该在itembound事件中 e.items.cell["你的列"].text=DateTime.Parse(e.items.cell["你的列"].text.ToString("yyyy-MM-dd")) 　　9.获取错误信息并到指定页面　　不要使用Response.Redirect,而应该使用Server.Transfer 　　e.g // in global.asax protected void Application_Error(Object sender, EventArgs e) { if (Server.GetLastError() is HttpUnhandledException) Server.Transfer("MyErrorPage.aspx"); //其余的非HttpUnhandledException异常交给ASP.NET自己处理就okay了 :) } 　　Redirect会导致post－back的产生从而丢失了错误信息，所以页面导向应该直接在服务器端执行，这样就可以在错误处理页面得到出错信息并进行相应的处理　　10.清空Cookie Cookie.Expires=[DateTime]; Response.Cookies("UserName").Expires = 0 　　11.自定义异常处理 //自定义异常处理类 using System; using System.Diagnostics; namespace MyAppException { 　/// 　/// 从系统异常类ApplicationException继承的应用程序异常处理类。　/// 自动将异常内容记录到Windows NT/2000的应用程序日志　/// 　public class AppException:System.ApplicationException 　{ 　　public AppException() 　　{ 　　　if (ApplicationConfiguration.EventLogEnabled)LogEvent("出现一个未知错误。"); 　　} 　public AppException(string message) 　{ 　　LogEvent(message); 　} 　public AppException(string message,Exception innerException) 　{ 　　LogEvent(message); 　　if (innerException != null) 　　{ 　　　LogEvent(innerException.Message); 　　} 　} 　//日志记录类　using System; 　using System.Configuration; 　using System.Diagnostics; 　using System.IO; 　using System.Text; 　using System.Threading; 　namespace MyEventLog 　{ 　　/// 　　/// 事件日志记录类，提供事件日志记录支持　　/// 　　/// 定义了4个日志记录方法 (error, warning, info, trace) 　　/// 　　/// 　　public class ApplicationLog 　　{ 　　　/// 　　　/// 将错误信息记录到Win2000/NT事件日志中　　　/// 需要记录的文本信息　　　/// 　　　public static void WriteError(String message) 　　　{ 　　　　WriteLog(TraceLevel.Error, message); 　　　} 　　　/// 　　　/// 将警告信息记录到Win2000/NT事件日志中　　　/// 需要记录的文本信息　　　/// 　　　public static void WriteWarning(String message) 　　　{ 　　　　WriteLog(TraceLevel.Warning, message);　　　　　} 　　　/// 　　　/// 将提示信息记录到Win2000/NT事件日志中　　　/// 需要记录的文本信息　　　/// 　　　public static void WriteInfo(String message) 　　　{ 　　　　WriteLog(TraceLevel.Info, message); 　　　} 　　　/// 　　　/// 将跟踪信息记录到Win2000/NT事件日志中　　　/// 需要记录的文本信息　　　/// 　　　public static void WriteTrace(String message) 　　　{ 　　　　WriteLog(TraceLevel.Verbose, message); 　　　} 　　　/// 　　　/// 格式化记录到事件日志的文本信息格式　　　/// 需要格式化的异常对象　　　/// 异常信息标题字符串. 　　　/// 　　　/// 格式后的异常信息字符串，包括异常内容和跟踪堆栈. 　　　/// 　　　/// 　　　public static String FormatException(Exception ex, String catchInfo) 　　　{ 　　　　StringBuilder strBuilder = new StringBuilder(); 　　　　if (catchInfo != String.Empty) 　　　　{ 　　　　　strBuilder.Append(catchInfo).Append("\r\n"); 　　　　} 　　　　strBuilder.Append(ex.Message).Append("\r\n").Append(ex.StackTrace); 　　　　return strBuilder.ToString(); 　　　} 　　　/// 　　　/// 实际事件日志写入方法　　　/// 要记录信息的级别（error,warning,info,trace). 　　　/// 要记录的文本. 　　　/// 　　　private static void WriteLog(TraceLevel level, String messageText) 　　　{ 　　　　try 　　　　{ 　　　　　EventLogEntryType LogEntryType; 　　　　　switch (level) 　　　　　{ 　　　　　　case TraceLevel.Error: 　　　　　　　LogEntryType = EventLogEntryType.Error; 　　　　　　　break; 　　　　　　case TraceLevel.Warning: 　　　　　　　LogEntryType = EventLogEntryType.Warning; 　　　　　　　break; 　　　　　　case TraceLevel.Info: 　　　　　　　LogEntryType = EventLogEntryType.Information; 　　　　　　　break; 　　　　　　case TraceLevel.Verbose: 　　　　　　　LogEntryType = EventLogEntryType.SuccessAudit; 　　　　　　　break; 　　　　　　default: 　　　　　　　LogEntryType = EventLogEntryType.SuccessAudit; 　　　　　　　break; 　　　　　} 　　　　　EventLog eventLog = new EventLog("Application", ApplicationConfiguration.EventLogMachineName, ApplicationConfiguration.EventLogSourceName ); 　　　　　//写入事件日志　　　　　eventLog.WriteEntry(messageText, LogEntryType); 　　　　} 　　　catch {} //忽略任何异常　　} 　} //class ApplicationLog } 　　12.Panel 横向滚动，纵向自动扩展　　13.回车转换成Tab 　if (event.keyCode==13 && event.srcElement.type!=’button’ && event.srcElement.type! =’submit’ && 　　　　event.srcElement.type!=’reset’ && event.srcElement.type!=’’&& event.srcElement.type!=’textarea’); 　　　event.keyCode=9; onkeydown="if(event.keyCode==13) event.keyCode=9" 　　14.DataGrid超级连接列 DataNavigateUrlField="字段名" DataNavigateUrlFormatString="http://xx/inc/delete.aspx?ID={0}" 　　15.DataGrid行随鼠标变色 private void DGzf_ItemDataBound(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e) { 　if (e.Item.ItemType!=ListItemType.Header) 　{ 　　e.Item.Attributes.Add( "onmouseout","this.style.backgroundColor=\""+e.Item.Style["BACKGROUND-COLOR"]+"\""); 　　e.Item.Attributes.Add( "onmouseover","this.style.backgroundColor=\""+ "#EFF3F7"+"\""); 　} } 　　16.模板列　　后台代码 protected void CheckAll_CheckedChanged(object sender, System.EventArgs e) { 　//改变列的选定，实现全选或全不选。　CheckBox chkExport ; 　if( CheckAll.Checked) 　{ 　　foreach(DataGridItem oDataGridItem in MyDataGrid.Items) 　　{ 　　　chkExport = (CheckBox)oDataGridItem.FindControl("chkExport"); 　　　chkExport.Checked = true; 　　} 　} 　else 　{ 　　foreach(DataGridItem oDataGridItem in MyDataGrid.Items) 　　{ 　　　chkExport = (CheckBox)oDataGridItem.FindControl("chkExport"); 　　　chkExport.Checked = false; 　　} 　} } 　　17.数字格式化　　【的结果是500.0000，怎样格式化为500.00?】 int i=123456; string s=i.ToString("###,###.00"); 　　18.日期格式化　　【aspx页面内：　　显示为： 2004-8-11 19:44:28 　　我只想要：2004-8-11 】　　应该如何改？　　【格式化日期】　　取出来,一般是 object((DateTime)objectFromDB).ToString("yyyy-MM-dd"); 　　【日期的验证表达式】　　A.以下正确的输入格式： [2004-2-29], [2004-02-29 10:29:39 pm], [2004/12/31] ^((\d{2}(([02468][048])|([13579][26]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|([1-2][0-9])))))|(\d{2}(([02468][1235679])|([13579][01345789]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|(1[0-9])|(2[0-8]))))))(\s(((0?[1-9])|(1[0-2]))\:([0-5][0-9])((\s)|(\:([0-5][0-9])\s))([AM|PM|am|pm]{2,2})))?$ 　　B.以下正确的输入格式：[0001-12-31], [9999 09 30], [2002/03/03] ^\d{4}[\-\/\s]?((((0[13578])|(1[02]))[\-\/\s]?(([0-2][0-9])|(3[01])))|(((0[469])|(11))[\-\/\s]?(([0-2][0-9])|(30)))|(02[\-\/\s]?[0-2][0-9]))$ 　　【大小写转换】 HttpUtility.HtmlEncode(string); HttpUtility.HtmlDecode(string) 　　19.如何设定全局变量　　Global.asax中　　Application_Start()事件中　　添加Application[属性名] ＝ xxx; 　　就是你的全局变量　　20.怎样作到HyperLinkColumn生成的连接后，点击连接，打开新窗口？　　HyperLinkColumn有个属性Target,将器值设置成"_blank"即可.(Target="_blank") 　　【ASPNETMENU】点击菜单项弹出新窗口　　在你的menuData.xml文件的菜单项中加入URLTarget="_blank"，如： ...... 　　最好将你的aspnetmenu升级到1.2版　　21.读取DataGrid控件TextBox值 foreach(DataGrid dgi in yourDataGrid.Items) { 　TextBox tb = (TextBox)dgi.FindControl("yourTextBoxId"); 　tb.Text.... } 　　23.在DataGrid中有3个模板列包含Textbox分别为 DG_ShuLiang (数量) DG_DanJian(单价) DG_JinE (金额)分别在5.6.7列，要求在录入数量及单价的时候自动算出金额即:数量*单价=金额还要求录入时限制为数值型.我如何用客户端脚本实现这个功能? 　　〖思归〗 TextBox id="ShuLiang" runat=’server’ Text=’’ onkeyup="javascript:DoCal()" /> TextBox id="DanJian" runat=’server’ Text=’’ onkeyup="javascript:DoCal()" /> TextBox id="JinE" runat=’server’ Text=’’ /> function DoCal() { 　var e = event.srcElement; 　var row = e.parentNode.parentNode; 　var txts = row.all.tags("INPUT"); 　if (!txts.length || txts.length < 3) 　　return; 　var q = txts[txts.length-3].value; 　var p = txts[txts.length-2].value; 　if (isNaN(q) || isNaN(p)) 　　return; 　q = parseInt(q); 　p = parseFloat(p); 　txts[txts.length-1].value = (q * p).toFixed(2); } 　　24.datagrid选定比较底下的行时，为什么总是刷新一下，然后就滚动到了最上面，刚才选定的行因屏幕的关系就看不到了。 page_load page.smartNavigation=true 　　25.在Datagrid中修改数据，当点击编辑键时，数据出现在文本框中，怎么控制文本框的大小 ? private void DataGrid1_ItemDataBound(obj sender,DataGridItemEventArgs e) { 　for(int i=0;i一个编号列： DataTable dt= c.ExecuteRtnTableForAccess(sqltxt); //执行sql返回的DataTable DataColumn dc=dt.Columns.Add("number",System.Type.GetType("System.String")); for(int i=0;i一个CheckBox，页面中添加一个全选框 private void CheckBox2_CheckedChanged(object sender, System.EventArgs e) { 　foreach(DataGridItem thisitem in DataGrid1.Items) 　{ 　　((CheckBox)thisitem.Cells[0].Controls[1]).Checked=CheckBox2.Checked; 　} } 　　将当前页面中DataGrid1显示的数据全部删除 foreach(DataGridItem thisitem in DataGrid1.Items) { 　if(((CheckBox)thisitem.Cells[0].Controls[1]).Checked) 　{ 　　string strloginid= DataGrid1.DataKeys[thisitem.ItemIndex].ToString(); 　　Del (strloginid); //删除函数　} } 　　30．当文件在不同目录下，需要获取数据库连接字符串（如果连接字符串放在Web.config，然后在Global.asax中初始化）　　在Application_Start中添加以下代码： Application["ConnStr"]=this.Context.Request.PhysicalApplicationPath+ConfigurationSettings. 　　　AppSettings["ConnStr"].ToString(); 　　31．变量.ToString() 　　字符型转换转为字符串 12345.ToString("n"); //生成 12,345.00 12345.ToString("C"); //生成￥12,345.00 12345.ToString("e"); //生成 1.234500e+004 12345.ToString("f4"); //生成 12345.0000 12345.ToString("x"); //生成 3039 (16进制) 12345.ToString("p"); //生成 1,234,500.00% 　　32、变量.Substring(参数1,参数2); 　　截取字串的一部分，参数1为左起始位数，参数2为截取几位。如：string s1 = str.Substring(0,2); 　　33．在自己的网站上登陆其他网站：(如果你的页面是通过嵌套方式的话，因为一个页面只能有一个FORM，这时可以导向另外一个页面再提交登陆信息) 　　文本框的名称必须是你要登陆的网页上的名称，如果源码不行可以用vsniffer 看看。　　下面是获取用户输入的登陆信息的代码： string name; name=Request.QueryString["EmailName"]; try { 　int a=name.IndexOf("@",0,name.Length); 　f_user.Value=name.Substring(0,a); 　f_domain.Value=name.Substring(a+1,name.Length-(a+1)); 　f_pass.Value=Request.QueryString["Psw"]; } catch { 　Script.Alert("错误的邮箱!"); 　Server.Transfer("index.aspx"); }

VB.NET的档案，对VB.NET初学者有很大的帮助。

把里面的文件解压,就可以搞定FCKeidtor在JTBC.net中的上传功能,也适用于fckeditor在.net中的使用下载完返回回复一下就可以拿回分数哦！别忘了

7,789

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章