开发笔记-Mikel-第292页

导出Excel文件解决科学计数法问题 - Avatar - 博客园

2015-06-26mikel阅读(1573)

来源： 导出Excel文件解决科学计数法问题 – Avatar – 博客园

无论在做web还是在写winform程序是老是在导出excel数据是遇到科学计数法问题，如果字符太长（如身份证号）在导出的excel 文件中就会出现长字符串的科学计数法表示，反复导数据是就会出现错误。

我解决的办法是在到处是或者存储将要导出时，每条记录字符串形式处理

在ASP.NET 中我一般都是将要导出的数据放到gridview网格里，首先对网格邦定数据时字符串形式处理，然后再用普通的形式导出excel就把问题解决了。

我的代码非常简单：在邦定gridview控件时在rowdatabound事件中队数据格式化

protected void gError_RowDataBound(object sender, GridViewRowEventArgs e)
{
//1）文本：vnd.ms-excel.numberformat:@

//2）日期：vnd.ms-excel.numberformat:yyyy/mm/dd

//3）数字：vnd.ms-excel.numberformat:#,##0.00

//4）货币：vnd.ms-excel.numberformat:￥#,##0.00

//5）百分比：vnd.ms-excel.numberformat: #0.00%

for (int i = 0; i < e.Row.Cells.Count; i++)
{
if (e.Row.RowType == DataControlRowType.DataRow)
e.Row.Cells[i ].Attributes.Add(“style”, “vnd.ms-excel.numberformat:@”);
}

}

然后执行到处操作就不会出现问题了

protected void btnOut_Click(object sender, EventArgs e)
{

Response.Clear();
Response.Buffer = true;
Response.Charset = “GB2312”;
Response.AppendHeader(“Content-Disposition”, “attachment;filename=FileName.xls”);

Response.ContentEncoding = System.Text.Encoding.UTF7;

//设置输出文件类型为excel文件。
Response.ContentType = “application/ms-excel”;
System.IO.StringWriter oStringWriter = new System.IO.StringWriter();
System.Web.UI.HtmlTextWriter oHtmlTextWriter = new System.Web.UI.HtmlTextWriter(oStringWriter);
this.gError.RenderControl(oHtmlTextWriter);
Response.Output.Write(oStringWriter.ToString());
Response.Flush();
Response.End();

}

public override void VerifyRenderingInServerForm(Control control)
{
//base.VerifyRenderingInServerForm(control);
}

在winform程序开发时，处理的办法就是在导出的过程中，开始试了处理excel对象的格式 mysheet.Cells.NumberFormat = “#”;

后来没有成功。最后还是用了逐条纪录进行字符格式转化的方法，即添加“ ‘ ”.

我写得代码主要部分如下

#region 执行数据导出
try
{
//到导出excel
Excel.ApplicationClass my = new Excel.ApplicationClass();
if (my == null)
{
MessageBox.Show(“无法创建excel对象，可能您的系统没有安装excel”);
return;
}
my.Visible = false;
Excel.Workbook mybook = (Excel.Workbook)my.Workbooks.Add(1);
((Excel.Worksheet)mybook.Worksheets[1]).Name = “sheet1”;
Excel.Worksheet mysheet = (Excel.Worksheet)mybook.Worksheets[1];
// mysheet.Cells.NumberFormat = “#”;
//导出列名
for (int j = 0; j < this.dgvShow.Columns.Count; j++)
{
if (this.dgvShow.Columns[j].Visible == true)
{
mysheet.Cells[1, j + 1] = “‘” + Convert.ToString(this.dgvShow.Columns[j].HeaderText);//加”‘”防止科学计数法
}
}
//导出数据
for (int i = 0; i < this.dgvShow.Rows.Count; i++)
{
for (int j = 0; j < this.dgvShow.Columns.Count; j++)
{
mysheet.Cells[i + 2, j + 1] = “‘” + Convert.ToString(this.dgvShow.Rows[i].Cells[j].Value);
}
}

if (savefilename != “”)
{
try
{
//mybook.Save();
mybook.SaveCopyAs(savefilename);
MessageBox.Show(“excel文件导出成功！”);
}
catch (Exception ex)
{
MessageBox.Show(“导出文件出现错误，文件可能正被打开！\n” + ex.Message);
}
}

GC.Collect();
}
catch (Exception ex)
{
MessageBox.Show(“数据导出时出现错误，一下是详细错误信息：\n” + ex.Message);
return;
}
#endregion

ASP.NET MVC 将IList导出Excel文档的泛型类（继承自ActionResult） - iJerome - 博客园

2015-06-26mikel阅读(880)

来源： ASP.NET MVC 将IList导出Excel文档的泛型类（继承自ActionResult） – iJerome – 博客园

最近MVC项目中要使用到Excel导出功能，在网上找了些资料，自己写了一个通用的泛型类（ExcelResult）。因为是直接继承自ActionResult这个抽象类的，所以用起来很方便，在控制器的Action中直接实例化返回即可。本人的代码功底不是很好，写的代码有点烂，希望大伙指正。

废话少说，直接上类完整代码：

/// <summary>
/// 提供将泛型集合数据导出Excel文档。
/// </summary>
/// <typeparam name="T"></typeparam>
public class ExcelResult<T> : ActionResult where T : new()
{
    public ExcelResult(IList<T> entity, string fileName, bool showDisplayName = true)
    {
        this.Entity = entity;
        this.FileName = fileName;
        this.ShowDisplayName = showDisplayName;
    }
    public ExcelResult(IList<T> entity, bool showDisplayName = true)
    {
        this.Entity = entity;
        DateTime time = DateTime.Now;
        this.FileName = string.Format("{0}_{1}_{2}_{3}",
            time.Month, time.Day, time.Hour, time.Minute);
        this.ShowDisplayName = showDisplayName;
    }
    public IList<T> Entity
    {
        get;
        set;
    }
    public string FileName
    {
        get;
        set;
    }
    public bool ShowDisplayName
    {
        get;
        set;
    }
    public override void ExecuteResult(ControllerContext context)
    {
        if (Entity == null)
        {
            new EmptyResult().ExecuteResult(context);
            return;
        }
        SetResponse(context);
    }
    /// <summary>
    /// 设置并向客户端发送请求响应。
    /// </summary>
    /// <param name="context"></param>
    private void SetResponse(ControllerContext context)
    {
        StringBuilder sBuilder = ConvertEntity();
        byte[] bytestr = Encoding.Unicode.GetBytes(sBuilder.ToString());
        context.HttpContext.Response.Clear();
        context.HttpContext.Response.ClearContent();
        context.HttpContext.Response.Buffer = true;
        context.HttpContext.Response.Charset = "GB2312";
        context.HttpContext.Response.ContentEncoding = Encoding.GetEncoding("GB2312");
        context.HttpContext.Response.ContentType = "application/ms-excel";
        context.HttpContext.Response.AddHeader("Content-Disposition", "attachment; filename=" + FileName + ".xls");
        context.HttpContext.Response.AddHeader("Content-Length", bytestr.Length.ToString());
        context.HttpContext.Response.Write(sBuilder);
        context.HttpContext.Response.Flush();
        context.HttpContext.Response.Close();
        context.HttpContext.Response.End();
    }
    /// <summary>
    /// 把泛型集合转换成组合Excel表格的字符串。
    /// </summary>
    /// <returns></returns>
    private StringBuilder ConvertEntity()
    {
        StringBuilder sb = new StringBuilder();
        AddTableHead(sb);
        AddTableBody(sb);
        return sb;
    }
    /// <summary>
    /// 根据IList泛型集合中的每项的属性值来组合Excel表格。
    /// </summary>
    /// <param name="sb"></param>
    private void AddTableBody(StringBuilder sb)
    {
        if (Entity == null || Entity.Count <= 0)
        {
            return;
        }
        PropertyInfo[] properties = typeof(T).GetProperties();
        if (properties.Length <= 0)
        {
            return;
        }
        for (int i = 0; i < Entity.Count; i++)
        {
            for (int j = 0; j < properties.Length; j++)
            {
                string sign = j == properties.Length - 1 ? "\n" : "\t";
                object obj = properties[j].GetValue(Entity[i], null);
                sb.Append(obj ?? string.Empty).Append(sign);
            }
        }
    }
    /// <summary>
    /// 根据指定类型T的所有属性名称来组合Excel表头。
    /// </summary>
    /// <param name="sb"></param>
    private void AddTableHead(StringBuilder sb)
    {
        PropertyInfo[] properties = typeof(T).GetProperties();
        if (properties.Length <= 0)
        {
            return;
        }
        for (int i = 0; i < properties.Length; i++)
        {
            string headName = properties[i].Name;
            string sign = i == properties.Length - 1 ? "\n" : "\t";
            if (!ShowDisplayName)
            {
                sb.Append(headName).Append(sign);
                continue;
            }
            Attribute attribute = Attribute.GetCustomAttribute(properties[i], typeof(DisplayNameAttribute));
            if (attribute != null)
            {
                DisplayNameAttribute displayNameAttribute = attribute as DisplayNameAttribute;
                if (displayNameAttribute != null && !string.IsNullOrWhiteSpace(displayNameAttribute.DisplayName))
                {
                    headName = displayNameAttribute.DisplayName;
                }
            }
            sb.Append(headName).Append(sign);
        }
    }
}

在控制器中调用方法：

public ActionResult Index()
{
    List<Student> students = new List<Student>();
    for (int i = 1; i <= 100; i++)
    {
        students.Add(new Student
        {
            Name = "Name " + i.ToString(),
            Age = i,
            Address = "Address " + i.ToString()
        });
    }
    return new ExcelResult<Student>(students);
}

上面代码中用到的Student类定义：

public class Student
{
    [DisplayName("姓名")]
    public string Name { get; set; }
    [DisplayName("年龄")]
    public int Age { get; set; }
    [DisplayName("家庭住址")]
    public string Address { get; set; }
}

结果导出的Excel文档截图：

Delphi从Excel导入 - 娃娃鸭的窝 - ITeye技术网站

2015-06-26mikel阅读(1179)

来源： Delphi从Excel导入 – 娃娃鸭的窝 – ITeye技术网站

Delphi从Excel导入数据

要写一程序从Excel导入数据，从网上查到通用程序的写法，我只做了少量修改。

ExcelProUnit.pas

Delphi代码

unit ExcelProUnit;
interface
type
TExcelFunction = procedure(asheet: OleVariant); //声明导入函数
{访问单元格：sheet.cells[row,col]
转为string：vartostr(sheet.cells[row,col])
转为datetime：vartodatetime(sheet.cells[row,col])
}
//afilename为数据源文件名，func为执行导入的函数
procedure RunExcelApplication(afilename: string; func: TExcelFunction);
implementation
uses Controls, Forms, ComObj, windows, sysutils;
procedure RunExcelApplication(afilename: string;
func: TExcelFunction);
var
app: OleVariant;
oldCursor: TCurSor;
begin
oldCursor := Screen.Cursor;
//保存鼠标指针状态
Screen.Cursor := crHourGlass;
try
CoInitializeEx(nil, 0);
app := CreateOleObject(‘Excel.Application’);
try
app.DisplayAlerts := False;
app.WorkBooks.open(afilename);
//打开源文件
app.WorkSheets[1].Activate;
app.visible := False; //隐藏excel窗体
if Assigned(func) then //执行导入函数
func(app.ActiveSheet); //传递sheet给函数进行导入
finally
app.WorkBooks.close;
app.quit; //关闭推出excel
Screen.Cursor := oldCursor;
end;
except on e: Exception do
begin
MessageBox(GetActiveWindow, pchar(e.message), ‘提示’, MB_OK + MB_ICONINFORMATION);
Screen.Cursor := OldCursor;
Exit;
end;
end;
end;
end.

主要考虑的地方是传进去的函数的写法。以下写法没有进行过多的细化主要是完成功能。

ExcelMainUnit.pas

Delphi代码

unit excelmainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses ExcelProUnit;
var
sl: tStrings;
{$R *.dfm}
procedure GetFromExcel(asheet: OleVariant);
var
s, rs: string;
row: integer;
begin
row := 1;
s := trim(vartostr(aSheet.cells[row, 1]));
while s <> ” do
begin
rs := ”;
rs := rs + vartostr(aSheet.cells[row, 1]) + ‘ ‘;
rs := rs + vartostr(aSheet.cells[row, 2]) + ‘ ‘ + vartostr(aSheet.cells[row, 3]);
inc(row);
sl.Add(rs);
s := trim(vartostr(aSheet.cells[row, 1]));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sl := TStringList.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RunExcelApplication(ExtractFilePath(application.ExeName) + ‘success.xlsx’, GetFromExcel);
memo1.Lines.AddStrings(sl);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RunExcelApplication(ExtractFilePath(application.ExeName) + ‘success.xls’, GetFromExcel);
memo1.Lines.AddStrings(sl);
end;
end.

其中Excel数据为：

Java代码

姓名成绩备注
Danny 100 完胜
Way 99 差一分完胜
Jay 59 没及格，太难受了
Joan 77 中等

读取数据为：

Java代码

姓名成绩备注
Danny 100 完胜
Way 99 差一分完胜
Jay 59 没及格，太难受了
Joan 77 中等

2011-5-27 23:10 danny

Delphi Excel导入的通用程序 - beyondqd的专栏 - 博客频道 - CSDN.NET

2015-06-26mikel阅读(1055)

步骤:1 连excel(自己知道其格式,最好是没个字段在数据一一对应)2 读excel数据,填入到数据库我这里有个函数,实现把excel表格中数据导入数据库,在一条数据导入前判断数据库中是否有该数据,如果有,就不再导入该数据(避免重复),你可以参考下procedure TForm_qyxxcx.BitBtn2Click(Sender: TObject);VAR I,J:INTE

来源： Delphi Excel导入的通用程序 – beyondqd的专栏 – 博客频道 – CSDN.NET

步骤:
1 连excel(自己知道其格式,最好是没个字段在数据一一对应)
2 读excel数据,填入到数据库
我这里有个函数,实现把excel表格中数据导入数据库,在一条数据导入前判断数据库中是否有该数据,如果有,就不再导入该数据(避免重复)
,你可以参考下
procedure TForm1.btnClick(Sender: TObject);
 begin
   OpenDialog1.Title := '请选择正确的excel文件';
   OpenDialog1.Filter := 'Excel(*.xls)|*.xls';
   if OpenDialog1.Execute then
   edit1.Text := OpenDialog1.FileName;
 end;


 procedure TForm1.btninClick(Sender: TObject);
 const

   BeginRow = 2; BeginCol = 1;
 var
   Excel: OleVariant;
   iRow,iCol : integer;
   xlsFilename: string;
 begin
 if (trim(edit1.Text) = '') then
   begin
   MessageBox(GetActiveWindow(), 请选择正确的excel路径', MB_OK +
   MB_ICONWARNING);
   exit;
   end;
   xlsFilename := trim(edit1.Text);
   try
   Excel := CreateOLEObject('Excel.Application');
   except
   Application.MessageBox('excel没有安装', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
   Exit;
   end;
   Excel.Visible := false;
   Excel.WorkBooks.Open(xlsFilename);
   try
   iRow := BeginRow;
   iCol := BeginCol;

   while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do begin
   with ADOQuery1 do begin
   Append;
   Fields[0].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
   Fields[1].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
   Fields[2].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value);
   iRow := iRow + 1;
   end;

   end;
   Excel.Quit;
   ADOQuery1.UpdateStatus ;
   except
   Application.MessageBox('导入数据出错', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
   Excel.Quit;
   end;
   MessageBox(GetActiveWindow(), '数据导入成功', '提示信息', MB_OK +
   MB_ICONWARNING);
 end;


procedure TForm1.btnClick(Sender: TObject);
 begin
   OpenDialog1.Title := '请选择正确的excel文件';
   OpenDialog1.Filter := 'Excel(*.xls)|*.xls';
   if OpenDialog1.Execute then
   edit1.Text := OpenDialog1.FileName;
 end;

 procedure TForm1.btninClick(Sender: TObject);
 const

   BeginRow = 2; BeginCol = 1;
 var
   Excel: OleVariant;
   iRow,iCol : integer;
   xlsFilename: string;
 begin
 if (trim(edit1.Text) = '') then
   begin
   MessageBox(GetActiveWindow(), 请选择正确的excel路径', MB_OK +
   MB_ICONWARNING);
   exit;
   end;
   xlsFilename := trim(edit1.Text);
   try
   Excel := CreateOLEObject('Excel.Application');
   except
   Application.MessageBox('excel没有安装', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
   Exit;
   end;
   Excel.Visible := false;
   Excel.WorkBooks.Open(xlsFilename);
   try
   iRow := BeginRow;
   iCol := BeginCol;

   while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do begin
   with ADOQuery1 do begin
   Append;
   Fields[0].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
   Fields[1].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
   Fields[2].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value);
   iRow := iRow + 1;
   end;

   end;
   Excel.Quit;
   ADOQuery1.UpdateStatus ;
   except
   Application.MessageBox('导入数据出错', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
   Excel.Quit;
   end;
   MessageBox(GetActiveWindow(), '数据导入成功', '提示信息', MB_OK +
   MB_ICONWARNING);
 end;
procedure TForm_qyxxcx.BitBtn2Click(Sender: TObject);
VAR
  I,J:INTEGER;
  col,row:integer;
  MsExcel,WBook,WSheet:OLEVARIANT;
  f_temp,strtemp:string;
begin
  if Main_form.lwt.Message_Confirm('为预防不可预测情况发生（字段太长、类型不一致等）'+#10#13+'强烈建议在导入前备份原来数据,'+#10#13+'确认：终止导入'+#10#13+'取消：继续导入') then
    abort;

  cdsDJZY.Open;
  cdsDJZY.First;
  while not cdsDJZY.Eof do
    cdsDJZY.Delete;

  cdsDJZY.Close;
  cdsDJZY.Open;
  try
  begin
    MsExcel:= CreateOleObject('Excel.Application');
    WBook:=MsExcel.Application;
    if opendialog1.Execute then   //关联到文件
    begin
     if opendialog1.FileName='' then
       abort;
      wbook.workbooks.Open(opendialog1.FileName);
    end;
    WBook.Visible:= true;
    WSheet:=WBook.worksheets[1];
  end
  except
  begin
    Application.Messagebox('您取消了操作或 Excel   没有安装!','ERROR!',   MB_ICONERROR   +   mb_Ok);
    Abort;
  end;
  end;

  row:=WSheet.UsedRange.Rows.Count;      //行
  col:=WSheet.UsedRange.columns.Count;     //列
  if (row=0) or (col = 0)  then
  begin
    showmessage('该excel文件没有数据！请确认');
    abort;
  end;

  proform.Show;
  proform.ProgressBar1.Max:=row;

  with qqyb do
  begin
    open;
    for i:=1 to row-1 do    //要增加的行数
    begin   // 0 人员名称  2 企业名称
      //判断是否存在该企业和人员，如果存在，不导入该记录
      strtemp:='select * from qyb where qy_name = '''+WSheet.cells[i+1,1].Value+'''';
      Main_Form.lwt.DB_AdoQueryRun(qupdate,strtemp);
      if qupdate.RecordCount&lt;&gt;0 then   //  存在，加入临时表  ，退出本次循环
      begin
        cdsDJZY.Append ;
        cdsDJZY.FieldByName('企业名称').AsString := WSheet.cells[i+1,1].Value;
        cdsDJZY.Post;
        continue;
      end;
      Append; //不存在，继续
      for j:=0 to col-1 do   //列
      begin
        proform.ProgressBar1.Position:=proform.ProgressBar1.Position+1;
//        if adory.Fields[j].FieldKind
        Fields[j].Value:= WSheet.cells[i+1,j+1].Value;
      end;
      Post;
    end;
  end;
  proform.ProgressBar1.Position:=0;
  proform.Hide;

  if cdsDJZY.RecordCount&gt;1 then
  begin
    if Main_form.lwt.Message_Confirm('数据已经导入！,部分记录因为已经存在，没有导入，是否打印没有导入记录的请单？') then
    begin
      Main_form.lwt.DB_ShowReportByDataSet(cdsDJZY,'因为已经存在该企业导入失败的信息');
      main_form.lwt.DB_Excel_Export(cdsdjzy,'c:\hello.xls');
    end;
  end
  else
  begin
    Main_Form.lwt.Message_Show('数据已经导入！');
  end;
  wbook.workbooks.close;
end;

devexpress实现单元格合并以及依据条件合并单元格 - 曼彻斯特联队 - 博客园

2015-06-26mikel阅读(933)

来源： devexpress实现单元格合并以及依据条件合并单元格 – 曼彻斯特联队 – 博客园

1、devexpress实现单元格合并非常的简单，只要设置属性【AllowCellMerge=True】就可以了，实现效果如下图：

2、但是在具体要求中并非需要所有的相同单元格都合并，可能需要其他的条件来控制合并。这个时候我们就需要在事件 gridView1_CellMerge中来控制了。下图为根据最后一列判断是否合并单元格的效果图（其中第四列设置为不合并<非必需>，这里只是为了达到一个比较效果。）。

3、重要代码：

            int row1 = e.RowHandle1;
            int row2 = e.RowHandle2;
            string value1 = gridView1.GetDataRow(row1)["A4"].ToString();
            string value2 = gridView1.GetDataRow(row2)["A4"].ToString();
            if (value1 != value2)
            {
                e.Handled = true;
            }

4、案例源代码下载链接(无需积分)：http://download.csdn.net/detail/kehaigang29/8839689

java 日期格式化将String日期重新格式化成String型 - 黑色头发 - ITeye技术网站

2015-06-25mikel阅读(810)

SimpleDateFormat sdf1 = new SimpleDateFormat(pat1) ;

来源： java 日期格式化将String日期重新格式化成String型 – 黑色头发 – ITeye技术网站

将String型格式化,比如想要将2011-11-11格式化成2011年11月11日

Java代码

public static void main(String args[]){
String strDate = “2011-11-11 10:11:30.345” ;
// 准备第一个模板，从字符串中提取出日期数字
String pat1 = “yyyy-MM-dd HH:mm:ss.SSS” ;
// 准备第二个模板，将提取后的日期数字变为指定的格式
String pat2 = “yyyy年MM月dd日 HH时mm分ss秒SSS毫秒” ;
SimpleDateFormat sdf1 = new SimpleDateFormat(pat1) ; // 实例化模板对象
SimpleDateFormat sdf2 = new SimpleDateFormat(pat2) ; // 实例化模板对象
Date d = null ;
try{
d = sdf1.parse(strDate) ; // 将给定的字符串中的日期提取出来
}catch(Exception e){ // 如果提供的字符串格式有错误，则进行异常处理
e.printStackTrace() ; // 打印异常信息
}
System.out.println(sdf2.format(d)) ; // 将日期变为新的格式
}

封装了一下

Java代码

/**
* 将String型格式化,比如想要将2011-11-11格式化成2011年11月11日,就StringPattern(“2011-11-11″,”yyyy-MM-dd”,”yyyy年MM月dd日”).
* @param date String 想要格式化的日期
* @param oldPattern String 想要格式化的日期的现有格式
* @param newPattern String 想要格式化成什么格式
* @return String
*/
public final String StringPattern(String date, String oldPattern, String newPattern) {
if (date == null || oldPattern == null || newPattern == null)
return “”;
SimpleDateFormat sdf1 = new SimpleDateFormat(oldPattern) ; // 实例化模板对象
SimpleDateFormat sdf2 = new SimpleDateFormat(newPattern) ; // 实例化模板对象
Date d = null ;
try{
d = sdf1.parse(date) ; // 将给定的字符串中的日期提取出来
}catch(Exception e){ // 如果提供的字符串格式有错误，则进行异常处理
e.printStackTrace() ; // 打印异常信息
}
return sdf2.format(d);
}

黑色头发:http://heisetoufa.iteye.com/

资源就是竞争力

2015-06-25mikel阅读(818)

最近有个注册的任务，要求一天之内推广注册100人，并且都是有效手机号，需要短信验证。

单价不低，比较着急，于是论坛里的很多人都反应强烈。

有自叹不如，干不来，没那能力的；有跃跃欲试摩拳擦掌准备发力推广的；有看热闹不嫌事儿大，在那分析不好推广的；有默默看了，准备推广方法的；总之一句话，利益面前人人平等，机会来了你把握得住吗？

结果这个任务花落谁家不得而知，反正至今没到我的手里，其实我是蛮有信心做到100的量，毕竟有过推广经验，知道如何推广上量，但是架不住有资源的，人家根本不用想量的问题，因为人家手里有很多目标客户群，一下子就把我这些盲目推广的比下去了。可想而知作为广告主你是找一个把握着大量目标客户的人去花钱推广，还是找一帮没有目标客户的人撒网式的烧钱推广呢？答案不言而喻。

所以说要想把握机会，手里一定要有资源，就比如你要平时激励多个圈子内的资源，比如开发圈子，营销圈子，投资圈子，站长圈子等等，你积累了越来越多的人脉关系，还有知名度，你就更容易推广产品，就是不自己生产和销售的，找别人谈也更有竞争力，于是就有了前面的事件结果。

互联网虽然很大，但是只要你把握住精准的资源和人脉关系，一样可以赚得到很多钱，其实很简单推推项目就可以拿佣金的。

Android开发笔记(成长轨迹) - 其实并不难,是你太悲观 - 博客频道 - CSDN.NET

2015-06-25mikel阅读(931)

1.控制台输出：called unimplemented OpenGL ES API调用了未实现的OpenGL ES API函数，一般由于导入的第三方库如地图库，里面有用到OpenGL，但是模拟器的硬件默认是没有这个的，所以需要我们编辑模拟器Emulation Options选项勾选 Use Host GPU 然后重启模拟器再尝试，如果还是这个错误，那么我们只好用真机测试了。2

来源： Android开发笔记(成长轨迹) – 其实并不难,是你太悲观 – 博客频道 – CSDN.NET

1.控制台输出：called unimplemented OpenGL ES API

调用了未实现的OpenGL ES API函数，一般由于导入的第三方库如地图库，里面有用到OpenGL，但是模拟器的硬件默认是没有这个的，所以需要我们编辑模拟器Emulation Options选项勾选 Use Host GPU 然后重启模拟器再尝试，如果还是这个错误，那么我们只好用真机测试了。

2.控制台输出：

、

这个错误是由于真机里已经存在一个相同签名的应用程序，最简单是真机先卸载掉，然后再run。

3.高德地图Android版本，导入地图库，项目打开后报错：

06-05 09:10:46.718: W/dalvikvm(932): Unable to resolve superclass of Lcom/amapv2/cn/apis/BasicMapActivity; (29)
06-05 09:10:46.718: W/dalvikvm(932): Link of class ‘Lcom/amapv2/cn/apis/BasicMapActivity;’ failed

06-05 09:10:46.888: E/AndroidRuntime(932): FATAL EXCEPTION: main
06-05 09:10:46.888: E/AndroidRuntime(932): java.lang.ExceptionInInitializerError
06-05 09:10:46.888: E/AndroidRuntime(932): at java.lang.Class.newInstanceImpl(Native Method)
06-05 09:10:46.888: E/AndroidRuntime(932): at java.lang.Class.newInstance(Class.java:1319)
06-05 09:10:46.888: E/AndroidRuntime(932): at android.app.Instrumentation.newActivity(Instrumentation.java:1054)

这个错误是由于你的android开发环境adt升级到最新版本导致的错误，属于你Android开发环境问题，选中你的项目，右击选择 “Properties”———》“Java Build Path”——–》“Order and Export” ，把“Android Private Libraries”选项打上勾，再次编译就可以了。

4.android横竖屏锁定：

xml文件中设置：
要实现这个目的，只需要在AndroidManifest.xml里声明Activity的时候加上一个属性：android:screenOrientation，属性取值landscape为固定横屏、portrait为固定纵屏幕。
代码：
setRequestedOrientation(ActivityInfo.SCREEN_ORIENTATION_LANDSCAPE););//强制为横屏
setRequestedOrientation(ActivityInfo.SCREEN_ORIENTATION_PORTRAIT);//竖屏
============延伸========
屏幕会自动切换时，默认状态的应用程序，会重新调用onCreate，相当于重新启动了一次应用程序。同时，layout可能因为横屏带来不能合理适配的问题。为了解决旋屏和键盘切换引起的程序重启问题，还需要增加一个属性：android:configChanges。这个属性可以理解为一个监听器，它将拦截旋屏和键盘切换事件，阻止程序重启而变为回调onConfigurationChanged方法。这里常用的属性取值为：keyboardHidden|orientation。

Socket TCP/UDP通信原理http://wenku.baidu.com/view/47437d4dcf84b9d528ea7a67.html

5，android 谷歌地图开发时，控制台输出：

也就是调试时真机运行后地图显示空白。造成这种现状的原因是由于 google api key配置错误。

Api key分为两种情况

一种是使用Debug keystore生成的api key

一种是使用release keystore生成的api key

不同的api key使用不同的sha1字符生成，所以如果是调试，如果使用android自带的Debug keystore，一定要是当时生成debug api key的那个 keystone。如果是release，自己的keystore来签名，APP配置文件就用 release下生成的api key。不能混用。否则显示不了地图。

解决办法：

1，把debug keystone替换成生成 api key 的那个：

2，APP配置文件里要启用debug 的 key：

6,Android Your content must have a ListView whose id attribute is ‘android.R.id.list’错误

错误提示：Your content must have a ListView whose id attribute is ‘android.R.id.list’

对于以上错误，其实可能是因为我们要实现对ListView中setOnItemClick的事件监听而去继承了LiseActivity，但是却没有ListView的标签，网上有说过只要在布局文件中添加如下代码即可：

& 或 &	&		和
< 或 <	<		小于号
> 或 >	>		大于号
"		“		双引号
			空格
©	©		版权符
&reg	®		注册符

<	<	小于号
>	>	大于号
&	&	和
'	’	单引号
"	“	双引号

开发笔记 第292页

无论在做web还是在写winform程序是老是在导出excel数据是遇到科学计数法问题，如果字符太长（如身份证号）在导出的excel 文件中就会出现长字符串的科学计数法表示，反复导数据是就会出现错误 。

我解决的办法是在到处是或者存储将要导出时，每条记录字符串形式处理

在ASP.NET 中 我一般都是将要导出的数据放到gridview网格里，首先对网格邦定数据时 字符串形式处理，然后再用普通的形式导出excel就把问题解决了。

我的代码非常简单：在邦定gridview控件时在rowdatabound事件中队数据格式化

protected void gError_RowDataBound(object sender, GridViewRowEventArgs e) { //1） 文本：vnd.ms-excel.numberformat:@

//2） 日期：vnd.ms-excel.numberformat:yyyy/mm/dd

//3） 数字：vnd.ms-excel.numberformat:#,##0.00

//4） 货币：vnd.ms-excel.numberformat:￥#,##0.00

//5） 百分比：vnd.ms-excel.numberformat: #0.00%

for (int i = 0; i < e.Row.Cells.Count; i++) { if (e.Row.RowType == DataControlRowType.DataRow) e.Row.Cells[i ].Attributes.Add(“style”, “vnd.ms-excel.numberformat:@”); }

}

然后执行到处操作就不会出现问题了

protected void btnOut_Click(object sender, EventArgs e) { Response.Clear(); Response.Buffer = true; Response.Charset = “GB2312”; Response.AppendHeader(“Content-Disposition”, “attachment;filename=FileName.xls”); Response.ContentEncoding = System.Text.Encoding.UTF7;

}

public override void VerifyRenderingInServerForm(Control control) { //base.VerifyRenderingInServerForm(control); }

在winform程序开发时，处理的办法就是在导出的过程中，开始试了 处理excel对象的格式 mysheet.Cells.NumberFormat = “#”;

后来没有成功。最后还是用了逐条纪录进行字符格式转化的方法，即添加“ ‘ ”.

我写得代码主要部分如下

if (savefilename != “”) { try { //mybook.Save(); mybook.SaveCopyAs(savefilename); MessageBox.Show(“excel文件导出成功！”); } catch (Exception ex) { MessageBox.Show(“导出文件出现错误，文件可能正被打开！\n” + ex.Message); } }

GC.Collect(); } catch (Exception ex) { MessageBox.Show(“数据导出时出现错误，一下是详细错误信息：\n” + ex.Message); return; } #endregion

声明

背景

动态调试的困难

获取入口函数所在的类名

新建入口类

修复入口类

修复ClassPath

修复资源、运行时参数、及JVM的options

让程序动起来！

结语

热门标签

分类

链接表

开发笔记第292页

无论在做web还是在写winform程序是老是在导出excel数据是遇到科学计数法问题，如果字符太长（如身份证号）在导出的excel 文件中就会出现长字符串的科学计数法表示，反复导数据是就会出现错误。

在ASP.NET 中我一般都是将要导出的数据放到gridview网格里，首先对网格邦定数据时字符串形式处理，然后再用普通的形式导出excel就把问题解决了。

protected void gError_RowDataBound(object sender, GridViewRowEventArgs e)
{
//1）文本：vnd.ms-excel.numberformat:@

//2）日期：vnd.ms-excel.numberformat:yyyy/mm/dd

//3）数字：vnd.ms-excel.numberformat:#,##0.00

//4）货币：vnd.ms-excel.numberformat:￥#,##0.00

//5）百分比：vnd.ms-excel.numberformat: #0.00%

for (int i = 0; i < e.Row.Cells.Count; i++)
{
if (e.Row.RowType == DataControlRowType.DataRow)
e.Row.Cells[i ].Attributes.Add(“style”, “vnd.ms-excel.numberformat:@”);
}

protected void btnOut_Click(object sender, EventArgs e)
{

Response.Clear();
Response.Buffer = true;
Response.Charset = “GB2312”;
Response.AppendHeader(“Content-Disposition”, “attachment;filename=FileName.xls”);

Response.ContentEncoding = System.Text.Encoding.UTF7;

public override void VerifyRenderingInServerForm(Control control)
{
//base.VerifyRenderingInServerForm(control);
}

在winform程序开发时，处理的办法就是在导出的过程中，开始试了处理excel对象的格式 mysheet.Cells.NumberFormat = “#”;

if (savefilename != “”)
{
try
{
//mybook.Save();
mybook.SaveCopyAs(savefilename);
MessageBox.Show(“excel文件导出成功！”);
}
catch (Exception ex)
{
MessageBox.Show(“导出文件出现错误，文件可能正被打开！\n” + ex.Message);
}
}

GC.Collect();
}
catch (Exception ex)
{
MessageBox.Show(“数据导出时出现错误，一下是详细错误信息：\n” + ex.Message);
return;
}
#endregion